Pascal
записать алгоритм определения положения точки m(xm, ym) на координатной
плоскости (в первом, втором, третьем, четвёртом квадранте, на оси ординат, на оси
абсцисс, в начале координат).

var

x,y:integer;

begin

write('x= ');

read(x);

write('y= ');

readln(y);

write('точка лежит в/на ');

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

writeln ('первой плоскости')

else

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

writeln ('второй плоскости')

else

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

writeln ('третьей плоскости')

else

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

writeln ('четвертой плоскости')

else

if (x=0) then

writeln('оси абсцисс')

else

writeln('оси ординат');

end.

program fantscrin;

var x, y:real;

begin

 write('x = '); readln(x);

 write('y = '); readln(y);

 if x = 0 then if y = 0 then writeln('Точка M(', x, ', ', y, ') находится в начале координат')

                        else writeln('Точка M(', x, ', ', y, ') находится на оси абсцисс')

          else if y = 0 then writeln('Точка M(', x, ', ', y, ') находится на оси ординат');

 if x > 0 then if y > 0 then writeln('Точка M(', x, ', ', y, ') находится 1-ой четверти')

                        else if y < 0 then writeln('Точка M(', x, ', ', y, ') находится 4-ой четверти');

 if x < 0 then if y > 0 then writeln('Точка M(', x, ', ', y, ') находится 2-ой четверти')

                        else if y < 0 then writeln('Точка M(', x, ', ', y, ') находится 3-ой четверти');

end.