Pascal. Задача 2-7

Пользователь вводит координаты x и y точки на числовой плоскости. Вывести номер четверти числовой плоскости, которой принадлежит точка.

Решение

var
  x, y : integer;
begin
  writeln('Введите координаты точки x, y');
  read(x, y);
  if (x > 0) and (y > 0) then writeln('Первая четверть')
  else if (x < 0) and (y > 0) then writeln('Вторая четверть')
       else if (x < 0) and (y < 0) then writeln('Третья четверть')
            else if (x > 0) and (y < 0) then writeln('Четвертая четверть')
                 else if (x = 0) and (y = 0) writeln('Точка пересечения координат')
                      else writeln('Точка на оси координат');
end.

◄▲►