Построить блок-схему (используя цикл). k = f^5 при f = exp^x+1. нужно построить программу и подпрограмму.

Function f(x: real): real;
begin
  f := exp(x) + 1
end;

var
  x, y, k: real;

begin
  Write('Введите значение х: ');
  Readln(x);
  y := f(x);
  k := sqr(y); k := sqr(k); k := k * y;
  Writeln('K=', k)
end.

Тестовое решение:

Введите значение х: 3.254
K=14068682.0850544