{* Задача 385 *}

Unit ZADACH385;
Interface
Implementation
Begin
 writeln(' Вычислить сумму: ');
End.

Program zadach385;

Uses zadach385.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i : integer;
  a : real;
  x : real;
  s : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('x := ');
  readln(x);
  i := 1;
  a := exp(x) / 6;
  s := a;
  For i := 2 To 10 Do {* Цикл для i => [2 .. 10] *}
  Begin
    a := a * (exp(x * i)) / (i + 2);
    s := s + a;
  End;
  writeln('s := ', s);
  readln
End.