Cоставить программку, которая печатает true, если точка с координатами (x;y) принадлежит

Var  x, y :integer;
begin
  readln(x,y);  if ((x gt;= -1) and (x lt;= 2) and (y gt;= -5) and (y lt;= 5)) or      ((x gt;= -5) and (x lt;= -1) and (y gt;= -5) and (y lt;= -2)) or      ((x gt;= 2) and (x lt;= 6) and (y gt;= 2) and (y lt;= 5))  then    writeln('true')  else    writeln('false');
end.