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.
Форматирование и формула