Program func_1-

Uses crt-

Var n,x:real-

function fc(a:real):real-

var y:real-

begin

y:=sqrt(a)+a-

fc:=y-

end-

begin

write(‘введите -n:’)-

readln(n)-

x:=fc(n)-

writeln(‘x=’,x:5:3)-

readln-

end.