Известны координаты точки, вывести сообщение какой координатной четверти она принадлежит. Рассмотреть случай начала координат и рассмотреть случай, когда она принадлежит оси 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.