[DelphiM0ZG]

Рекурсия, конечно, дело красивое и хорошее, но, если задача не сводится к написанию функции для нахождения факториала, то лучше написать как-то так:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  Sum: Extended;
  F: Int64;
  i, n: Word;

begin
  Write('N = ');
  ReadLn(N);

  F:=1;
  Sum:=1;
  For i:=1 To N Do
    Begin
      Sum:=Sum+1/F;
      F:=F*i;
    End;

  WriteLn;
  WriteLn('Sum = ', Sum:1:14);
  WriteLn;
  WriteLn('Press ENTER!');
  ReadLn;
end.