Вводится сначала радиус круга, потом координаты икс и игрек.
Эта точка проверяется на попадание в круг радиусом 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.
