Определить, принадлежит ли точка заданной области - Pascal ABC (12482)

Формулировка задачи:

Код к задаче: «Определить, принадлежит ли точка заданной области - Pascal ABC (12482)»

var r,x,y:real;
    f1,f2,f3,f4:boolean;
begin
repeat
write('Введите радиус r=');
readln(r);
until r>0;
writeln('Введите координаты точки');
readln(x,y);
f1:=sqr(x+r)+y*y<=r*r;
f2:=x*x+y*y>=r*r;
f3:=x*x+y*y<=r*r;
f4:=sqr(x-r)+y*y<=r*r;
if(f1 and f2)or(f4 and f2)
or(f3 and not f1 and not f4)
then write('Принадлежит') else write('Не принадлежит');
end.