Напишите программу, которая для заданной точки с координатами (х, у) определяет, где она расположена: на какой оси или в какой координатной четверти

Pascal

var

x, y : integer;

begin

readln (x, y) ;

if (x=0) or (y=0)

then

begin

if x = 0 then

writeln ('Точка лежит на оси y') ;

if y = 0 then

writeln ('Точка лежит на оси x') '

end

else

begin

if (x>0) and (y>0) then

writeln ('Точка находится в первой четверти') ;

if (x0) then

writeln ('Точка находится во второй четверти') ;

if (x<0) and (y<0) then

writeln ('Точка находится в третей четверти') ;

if (x>0) and (y<0) then

writeln ('Точка находится в четвертой четверти') ;

end;

end.