Составить приложение на языке pascal.определить в какую четверть координатной плоскости попала точка с координатами (x,y). переменной n присвоить номер четверти. если точка попала в начало координат, то n=0. если точка
попала на ось x или y, то напечатать сообщение об этом.
uses crt;
var x,y:real;
n:integer;
begin
clrscr;
writeln('Введите координаты точки:');
readln(x,y);
if(x=0)and(y<>0) then write('Точка попала на ось Y')
else if (x<>0)and(y=0) then write('Точка попала на ось Х')
else
begin
else if (x>0)and(y>0)then n:=1
else if (x<0)and(y>0) then n:=2
else if (x<0)and(y<0) then n:=3
else if(x>0)and(y<0) then n:=4
write('n=',n);
end;
readln end.