Program z1;
var x,y:real;
begin
writeln('введите координаты точки (x;y), при у неотрицательный');
readln(x,y);
if x>0 then
writeln('точка находится в I четверти');
if x<0 then<br>writeln('точка находится вo II четверти');
if x=0 then
writeln('точка находится на оси ОY');
if y=0 then
writeln('точка находится на оси ОХ');
if (x=0)and(y=0) then
writeln('точка находится в начале координат');
end.