На плоскости задана прямоугольная система координат, которая делит плоскость на 4 квадранта (четверти). Вводятся координаты (х, у). Определить какому квадранту (четверти) принадлежит точка.

Uses crt;

var x, y: real;

begin

clrscr;

write ('x=');

readln (x);

write ('y=');

readln (y);

if (x>0) then

begin

if (y>=0) then

writeln ('1 quater')

else

writeln ('4 quater');

end

else

begin

if (y>0) then

writeln ('2 quater')

else

writeln ('3 quater');

end;

readln ();

end.