Pascal даны целочисленные координаты точки на плоскости. если точка совпадает с началом координат, то вывести 0. если точка не совпадает с началом координат, но лежит на оси ох или oy, то вывести соответственно 1 или 2. если точка не лежит на координатных осях, вывести 3. (нужно чтобы тест на taskbook)

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

Проверку на Pascal ABC проходит, а тот сайт не грузится у меня, инет плохой..)