Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка — Pascal(Паскаль)

Program If22;

Var
  x, y: Real;

Begin
  WriteLn('Введите координаты точки (x,y) = ');
  ReadLn(x, y);
  If (x > 0) And (y > 0) Then
    WriteLn('Точка в первой координатной четверти')
  Else If (x < 0) And (y > 0) Then
    WriteLn('Точка в второй координатной четверти')
  Else If (x < 0) And (y < 0) Then
    WriteLn('Точка в третьей координатной четверти')
  Else
    WriteLn('Точка в четвертой координатной четверти');

End.