Отдам все баллы, сделайте программу срочно на языке Pascal ПРОШУ СРОЧНО!
Дано два числа х та у, які є відповідно абсцисою й ординатою деякої точки в декартовій системі координат. Скласти програму для визначення, в якій координатній чверті розміщена ця точка.

program raf105;

var x,y,z:integer;

begin

write('x = ');

readln (x);

write('y = ');

readln (y);

if (x<0) and (y>0)  

 then z:=1;

if (x>0) and (y>0)  

 then z:=2;

if (x<0) and (y<0)  

 then z:=3;

if (x>0) and (y<0)  

 then z:=4;

if (x<>0) and (y<>0)

 then writeln('Точка лежит в ',z,' четверти')

 else writeln('Точка лежит в на пересечении четвертей');

end.