Нахождение произведений (Delphi)

[vika18]

Помогите пожалуйста решить задачу)

[GreenWizard]

наработок нет? даже вычисление а не реализовала?

[Mad_Cat]

p:=1;
a0:=1;
a1:=1;
st2:=1;
for i:=2 to n do begin
a0:=a1;
st2:=st2*2;
a1:=a0+a0/st2;
p:=p*a1;
end;
memo.lines.add(FloatToStr(p));