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

var x,y: integer;
    k: 1..4;
begin
writeln('Введите координаты:');
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.