Составьте характеристику своего населённого пункта по плану: а) название и тип; б) год возникновения; в) географическое положение; г) численность населения;

а) город Челябинск; б) 1736 год; в) Челябинск расположен в центре материка Евразия, на восточном склоне Уральских гор, на реке Миасс (бассейн Оби), на 200 км южнее Екатеринбурга, в 1879 км к востоку от Москвы; г) 1 183 387 человек; д) Челябинск является деловым, научным, культурным и спортивным центром Южного Урала. Челябинск — крупный промышленный центр с предприятиями металлургии, машиностроения, металлообработки, приборостроения, трубной, химической, лёгкой и пищевой промышленности.

var
  x1, y1, x2, y2: byte;
  f, g: boolean;
 
begin
  writeln('Координаты первого поля:');
  write(' x1 = ');
  readln(x1);
  write(' y1 = ');
  readln(y1);
  writeln('Координаты второго поля:');
  write(' x2 = ');
  readln(x2);
  write(' y2 = ');
  readln(y2);
  writeln;
  { Поскольку Ферзь ходит и как ладья (горизонталь - вертикаль),
  и как слон (диагональ), нам надо объединить эти направления.
  Как было сказано в задаче boolean36, для успешного перехода
  ладьей необходимо совпадение или координат x, или координат
  y. Поэтому выражение f будет состоять в том, что или x1=x2,
  или y1=y2: }
  f := (x1 = x2)or(y1 = y2);
  { Но ферзь может ходить и как слон, поэтому выражение g будет
  состоять в том, что разницы соответствующих координат по
  модулю равны между собой (см. предыдущую задачу boolean38):}
  g := abs(x1 - x2) = abs(y1 - y2);
  { Таким образом, поскольку ферзь ходит или как ладья, или как
  слон, то выражения f и g объединим логическим оператором or
  ("или" - или ладья, или слон):}
  writeln(f or g);
  readln
end.

Program qwe;
Uses crt;
Label 1;
var x,y: Real;
Begin
Clrscr;
Write ('x,y=');
Read(x,y);
Write('Точка расположена ');
if x=0 then Begin Write('на оси OY');goto 1; end;
if y=0 then Begin Write('на оси OX'); goto 1;end;
if (x>0) and (y>0) then Begin
Write('в первой четверти');
goto 1;
end;
if (x<0) and (y>0) then begin
Write('во второй четверти');
goto 1;
end;
if (x<0) and (y<0) then Begin
Write('в третьей четверти');
goto 1;
end
else Write('в четвертой четверти');
1: Readkey;
end.