Решение:

uses crt;  

var x,y,r: real;  

begin  

clrscr;

write ('Введите x,y,r через пробел:');

readln (x,y,r);

if(sqr(x)+sqr(y))=sqr(r) then

writeln ('Точка лежит на границе окружности');

if(sqr(x)+sqr(y))>sqr(r) then

writeln ('Точка не лежит в окружности');

if(sqr(x)+sqr(y))<sqr(r) then

writeln ('Точка лежит внутри окружности');

end.