Составить программу на языке Паскаль: На координатной плоскости дана точка (х;у). Определите номер координатной четверти.

Предыдущий
вопрос Следующий
вопрос

program CoordinatesQuadrant;

var
x, y: integer;

begin
writeln('Enter the coordinates of the point (x y):');
readln(x, y);

if (x > 0) and (y > 0) then
writeln('The point is in the first quadrant')
else if (x < 0) and (y > 0) then
writeln('The point is in the second quadrant')
else if (x < 0) and (y < 0) then
writeln('The point is in the third quadrant')
else if (x > 0) and (y < 0) then
writeln('The point is in the fourth quadrant')
else
writeln('The point is on one of the axes');
end.