На плоскости задана прямоугольная система координат, которая делит плоскость на 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.