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Не принадлежит