Отдам все баллы, сделайте программу безотлагательно на языке Pascal ПРОШУ Безотлагательно!Дано

program raf105;

var x,y,z:integer;

begin

write('x = ');

readln (x);

write('y = ');

readln (y);

if (xlt;0) and (ygt;0)  

 then z:=1;

if (xgt;0) and (ygt;0)  

 then z:=2;

if (xlt;0) and (ylt;0)  

 then z:=3;

if (xgt;0) and (ylt;0)  

 then z:=4;

if (xlt;gt;0) and (ylt;gt;0)

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

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

end.