Составить приложение на языке 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.