{* Задача 367 *}

Unit ZADACH367;
Interface
Implementation
Begin
 writeln('Вычислить сумму:

');
End.

Program zadach367;
Const {* Константы *}
  n = 30;
Var {* Объявление переменных *}
  s : real;
  x : real;
  i : integer;
Begin
  writeln('enter x');
  readln(x);
  s := 0;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    s := s + (exp(x / i) + exp( - x/i)) / (i + 2) * (i + 2) * (i + 2) * (i + 2);
  writeln(s : 7:4);
  readln; {* Ждем нажатия Enter *}
End.