Вычислить члены ряда Паскаль

[SAF3R]

Здравствуйте уважаемые программисты. Помогите пожалуйста решить задачу на Паскале:
20160305cG9mYHT4Th8PNc23_Mgobk_large.jpg
Заранее большое Вам спасибо, просто совершенно не получается...

[Mad_Cat]

const
  n=100;
  e=0.01;
var
  b:array[1..n] of Real;
  ch:Real;
  i,m:Byte;
  x:Real;
begin
  Write('m=');
  Readln(m);
  x:=1;
  for i:=1 to m do
    begin
      Readln(b[i]);
      x:=x*b[i];
    end;
  i:=1;
  ch:=1;
  while Abs(ch)>=e do
    begin
      ch:=ch*x/i;
      Writeln(i,')',ch:6:3);
      inc(i);
    end;
  Readln;
end.

https://ideone.com/SsRg8o