Нужно составить программу в паскале.

дано натуральное число n> 1. вычислить s=1! +2! +3! +…+n!

program fantscrin;

 var n,i,s,f:integer;

begin

 write('Введите N = '); readln(n);

 s:= 1;

 f:=1;

 for i:=2 to n do

 begin

   f:= f * i;

   s:=s + f;

 end;

 writeln('S = ',s);

end.