На факторил Опции

[Catherinektz]

условие: s= 1!+2!+3!+…+n!

Есть программа, но ее нужно изменить, подскажите как, пожалуйста!
Program Factorial;
Uses Crt;
Var I,S,n:Longint;

Begin
Clrscr;
WriteLn('Рассчет суммы факториалов от 1 до n');
WriteLn('Bведите n');
ReadLn(n);
S:=1;
For I:=1 To n Do S:=S*i;
WriteLn('Число=',S);
ReadLn;
End.