Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатой четверти, в которой находится точка с координатами (x, y). Числа x, y введите с клавиатуры.
Пример ввода: -5 7
Пример вывода:2
(Это в ПАСКАЛЬ)

var x,y: integer;    k: 1..4;beginwriteln('Введите координаты:');write('x=');readln(x);write('y=');readln(y);if (x>0) and (y>0) then k:=1 else   if (x<0) and (y>0) then k:=2 else      if (x<0) and (y<0) then k:=3 else k:=4;writeln('Точка находится в ',k,' четверти координатной плоскости');readln;end.