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.