{* Задача 362 *}

Unit ZADACH362;
Interface
Implementation
Begin
 writeln('Сосчитать суммы для указанных значений x.

');
End.

Program zadach362;

Uses zadach362.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  x : real;
  s : real;
  n : real;
  i : integer;
Begin
  clrscr; {* Очистка экрана *}
  writeln('Vvedi x ');
  readln(x);
  n := 2;
  s := 0;
  x := exp(x);
  For i := 2 To 10 Do {* Увеличиваем i от 2 до 10 с шагом 1 *}
  Begin
    n := n * (i + 1);
    s := s + (x + i) / n;
  End;
  writeln('s=', s : 1:3);
  readln
End.