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

var x, y, n:integer; / / здесь: x - абсцисса точки, y - ордината точки, n - координатная четверть

begin

write ('Введите x - ');

readln (x);

write ('Введите y - ');

readln (y);

if (x>0) and (y>0) then n:=1;

if (x0) then n:=2;

if (x<0) and (y<0) then n:=3;

if (x>0) and (y<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.