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 (x<>0 ) or (x=0) and (y<>0) then  writeln ('1')            else   writeln ('2') ;end.это и есть ответ