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

var   x, y: integer; begin   write('Координаты точки x,y ');   readln(x, y);   if ((sqr(x) + sqr(y)) <= 4) and ((sqr(x) + sqr(y)) >= 1)     then writeln('Принадлежит')   else     writeln('Не принадлежит'); end. Тест №1 Координаты точки x,y -1 1 Принадлежит Тест №2 Координаты точки x,y -3 3 Не принадлежит