Составить приложение на языке Pascal. Определить в какую четверть…

uses crt; var x,y: real; n: integer; beginclrscr; writeln ('Введите координаты точки: '); readln (x,y); if (x=0) and (y<>0) then write ('Точка попала на ось Y') else if (x<>0) and (y=0) then write ('Точка попала на ось Х') elsebegin 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.