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

Var x,y:real;
begin
  write ('X = ');
  readln (x);
  write ('Y = ');
  readln (y);
  if (x>0) and (y>0) then writeln (1) else
   if (x<0) and (y>0) then writeln (2) else
    if (x<0) and (y<0) then writeln (3) else
     if (x>0) and (y<0) then writeln (4);
end.