Сумма факториалов (i+2)!

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double i=1,n,f,k,s=0;
 
for (i=1; i<=10; i++)
 {
  n=i+2;
  f=1;
  for (k=1;k<=n;k++)
  f=f*k;
  Memo1->Lines->Add ("При i="+FloatToStrF(i,ffFixed,8,0)+
                     " n="+FloatToStrF(n,ffFixed,8,0)+
                     " f="+FloatToStrF(f,ffFixed,8,0));
 s=s+f;
 }
Memo1->Lines->Add("Сумма="+FloatToStrF(s,ffFixed,8,0));
}
//---------------------------------------------------------------------------