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

Program gt;

var x, y:integer;

begin

read (x, y) ;

if (x>0) and (y>0) then writeln ('первая четверт') ;

if (x0) 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.