Известны координаты точки,вывести сообщение какой координатной четверти она принадлежит. Рассмотреть случай начала координат и рассмотреть случай,когда она принадлежит оси x.

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