Вычислить значение — —c —использованием функции.
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-
write(‘введите -n:’)-
readln(n)-
x:=fc(n)-
writeln(‘x=’,x:5:3)-
readln-
end.