Составьте программку которая определяет номер кординатной четверти в которой находяться точка

var x, y, n:integer; // здесь: x абсцисса точки, y ордината точки, n координатная четверть
begin
write(Введите x );
readln(x);
write(Введите y );
readln(y);
if (xgt;0) and (ygt;0) then n:=1;
if (xlt;0) and (ygt;0) then n:=2;
if (xlt;0) and (ylt;0) then n:=3;
if (xgt;0) and (ylt;0) then n:=4;
if (n=1) or (n=4) then
writeln(Точка размещена в ,n,-ой координатной четверти);
if n=2 then writeln(Точка расположена во ,n,-ой координатной четверти);
if n=3 then writeln(Точка расположена в ,n,-ей координатной четверти);
end.