Даны целочисленные координаты точки на плоскости. Если точка не лежит на координатных осях, то вывести 0. Если точка совпадает

var x, y : integer;
begin
   write('x = '); readln(x);
   write('y = '); readln(y);
   if (x = 0) and (y = 0) then writeln(1)
   else if (x = 0) then writeln(2)
   else if (y = 0) then writeln(3)
   else writeln(0)
end.