Question

С клавиатуры вводятся координаты точки в декартовой системе координат, требуется написать программу, определяющую по координатам точки, в какой четверти она находится.

Answer 1

var
  x,y:integer;
begin
  writeln('Введите x');
  readln(x);
  writeln('Введите y');
  readln(y);
  if (x>=0)and(y>=0) then writeln('1-четверть')else
  if (x>=0)and(y<=0) then writeln('4-четверть')else
  if (x<=0)and(y>=0) then writeln('2-четверть')else
  writeln('3-четверть')
end.

Answer 2

спасибо большое! :)