{* Задача 399 *}

Unit ZADACH399;
Interface
Implementation
Begin
 writeln('Вычислить значение выражения:


');
End.

Program zadach399;

Uses zadach399.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  n  : integer;
  i  : integer;
  k  : integer;
  x  : real;
  pr : real;
  y  : real;
Const {* Константы *}
  e = 2.7;
Begin
  ClrScr; {* Очищаем экран *}
  pr := 1;
  Write('x: ');
  ReadLn(x);
  Write('Количество повторов: ');
  ReadLn(k);
  Write('Первое значение: ');
  ReadLn(n);
  For i := n To n + k Do {* Цикл для i => [n .. n] *}
    pr := pr * (exp(exp((k - 1) / k*ln(x)) * ln(e)) + sqrt(x) - 1);
  y := exp(1 / n-ln(x)) + 1/9 - pr;
  WriteLn('Результат вычислений: ', y : 5:2);
  ReadLn; {* Ждем нажатия Enter *}
End.