решение проверено в среде паскаля
program pro1;
var
x,y: integer;
begin
writeln ('введи координаты точки x,y');
read (x,y);
if (x=0) and (y=0) then writeln ('0')
else
if (y=0) and (x<>0 ) or (x=0) and (y<>0) then writeln ('1')
else writeln ('2') ;
end.
это и есть ответ