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