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