Вхождение точки в фигуру

[moropsk]

Застрял на моменте:
при вводе точки в область окружности все верно "точка не принадлежит фигуре",а на всей остальной плоскости "точка принадлежит фигуре".
направьте в нужное русло,должен при вводе координат не входящих в фигуру прямоугольника писать "точка не входит в фигуру".

program figura_1;
uses crt;
var x,y:integer;
BEGIN
clrscr;
writeln('введите x ');
readln(x);
writeln('введите y ');
readln(y);
if (sqr(x-4)+sqr(y-2)>=4) {формула окружности}
then
writeln('введенная точка принадлежит фигуре')
else
writeln('введенная точка не принадлежит фигуре');
readln;
END.

[Mad_Cat]

if ((x>=1) and (x<=7)) and ((y>=2) and (y<=7)) and (sqr(x-4)+sqr(y-2)>=4) then
writeln('введенная точка принадлежит фигуре')
else
writeln('введенная точка не принадлежит фигуре');