Программа

VAR a,a_P,a_PP,Mult:real; { a, a_предыдущее, a_предпредыдущее, произведение  }
    k:integer; { Счетчик цикла }
    N:integer; { Число элементов произведения }
    Power2:real; { Степень 2 }
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите число членов произведения '); { Вывод приглашения }
  ReadLn(N);  { Ввод числа членов произведения }
  { Начальная инициализация переменных: }
  Power2:=1;
  a_P:=1;
  a:=1;
  Mult:=1;
  for k:=2 to N do  { Цикл набора произведения }
  Begin
    { Переопределение переменных: }
    a_PP:=a_P;
    a_P:=a;
    Power2:=Power2*2;
    a:=a_PP+a_P/Power2; { Переопределение сомножителя }
    Mult:=Mult*a  { Набор произведения }
  End;
  WriteLn('П',N:0,'=',Mult)
END.