координаты точки на плоскости

[STALKER7538]

Дано целочисленные координаты точки на плоскости. если точка не лежит на координатных осях, вывести 0. если точка совпадает с началом координат, то вывести 1. если точка не совпадает с началом координат, но лежит на осе ОХ або ОУ, то вывести 2 або 3.

[JUDAS]

program STALKER7538;
var x,y : integer;
begin
  writeln('введите координаты ');read(x,y);
  if (x=0) and (y=0) then writeln('1') else
  if (y=0) then writeln('2') else
  if (x=0) then writeln('3')  else
   writeln('0') ;
end.