{* Задача 391 *}

Unit ZADACH391;
Interface
Implementation
Begin
 writeln('С использованием циклических структур вычислить и вывести на экран сумму/произведение членов ряда. Число членов ряда и параметра задается с клавиатуры.

');
End.

Program zadach391;

Uses zadach391.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  p : real;
  x : real;
  n : integer;
  k : integer;
Begin
  write('x=');
  readln(x);
  write('n=');
  readln(n);
  p := 1;
  For k := 1 To n Do {* Увеличиваем k от 1 до n с шагом 1 *}
    p := p * ((k * x+n) / (exp(k * ln(2)) + 1));
  writeln('p=', p : 6:4);
  readln; {* Ждем нажатия Enter *}
End.