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

var x, y, n:integer; // здесь: x — абсцисса точки, y — ордината точки, n — координатная четвертьbeginwrite(\'Введите x — \');readln(x);write(\'Введите y — \');readln(y);if (x>0) and (y>0) then n:=1;if (x<0) and (y>0) 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) thenwriteln(\'Точка расположена в \',n,\'-ой координатной четверти\');if n=2 then writeln(\'Точка расположена во \',n,\'-ой координатной четверти\');if n=3 then writeln(\'Точка расположена в \',n,\'-ей координатной четверти\');end.