Turbo Pascal. Принадлежит ли точка данной области

Var
  x, y: integer;

begin
  write('Координаты точки x,y ');
  readln(x, y);
  if ((sqr(x) + sqr(y)) lt;= 4) and ((sqr(x) + sqr(y)) gt;= 1)
    then writeln('Принадлежит')
  else
    writeln('Не принадлежит');
end.

Тест 1
Координаты точки x,y -1 1
Принадлежит

Тест 2
Координаты точки x,y -3 3
Не принадлежит