Определить принадлежит ли точка а с координатами х, у к первой координатной четверти

Var
 x,y:integer;
begin
 readln(x,y);
 if (x>0) and (y>0) then
  writeln('Принадлежит к первой координатной четверти')
 else
  writeln('Не принадлежит к первой координатной четверти');
end.