Pascale abc cрочноВсе на фото 4

решение испытано в среде паскаля

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 (xlt;gt;0 ) or (x=0) and (ylt;gt;0) then  writeln ('1')
           else   writeln ('2') ;

end.

это и есть ответ