Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3 — Pascal(Паскаль)

Program If21;

Var
  x, y: Real;

Begin
  WriteLn('Введите координаты точки (x,y):');
  ReadLn(x, y);
  If (x = 0) And (y = 0) Then
    WriteLn('Точка совпадает с началом координат: 0')
  Else If ((x <> 0) And (y = 0)) Then
    WriteLn('Точка лежит на оси OX: 1')
  Else If ((x = 0) And (y <> 0)) Then
    WriteLn('Точка лежит на оси OY: 2')
  Else
    WriteLn('Точка не лежит на координатных осях: 3');

End.