Вводится сначала радиус круга, потом координаты икс и игрек.
Эта точка проверяется на попадание в круг радиусом r, с центром в начале координат. Если нужен круг не в начале координат, надо добавить координаты его центра x0, y0 (и тоже их запрашивать вместе с радиусом). Потом эти координаты использовать как смещения по икс и игрек в неравенстве.
Неравенство получится такое: (x-x0)*(x-x0)+(y-y0)*(y-y0)<=r*r
var
x,y,r :real;
begin
write('r= ');
read (r);
write('x= ');
read (x);
write('y= ');
read (y);
if x*x+y*y<=r*r
then write('принадлежит')
else write('не принадлежит');
end.
var x,y,y1,y2,y3:real;
function st(b,b1:real):real;
beginst:=power(b,b1);
end;
procedure work;
begin
y1:=st(x,2);
y2:=st(x,3);
y3:=st(5,6);
y:=(y1+y2+y3)/3;
end;
beginwrite('x');
readln(x);
work;
writeln('y',y);
end.