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

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.