{* Задача 388 *}

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

');
End.

Program Lab4;

Uses zadach388.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  N = 10;
Var {* В работе нам потребуются переменные: *}
  x : real;
  P : real;
  a : real;
  i : integer;
Begin
  writeln ('Введите x');
  readln(x);
  a := sqr(x + 1) / 6;
  P := a;
  For i := 2 To N Do {* Увеличиваем i от 2 до N с шагом 1 *}
  Begin
    a := a * (x + 1) / (i + 2);
    P := P * a
  End;
  writeln ('Произведение ', N : 2, ' слагаемых = ', P : 7:4)
End.