定义一个新函数喽,然后再循环求值.

procedure fac;
  var i:integer;
      a,b:real;
  begin
    a:=0;b:=1;
    for i:=1 to 20 do
      begin
        b:=b*i;          {求i的阶乘}
        a:=a+1/b;        {对每个b的倒数累加}
      end;
    writeln('1+1/1！+1/2！+1/3！+……1/20！=',a:6);{保留6位小数}
  end;