2. 1!+2!+ ... ... +n!

program exLoop2_1;
var
    sum, i, n, factorial : integer;
begin
     write('Please input a positive: ');
     readln(n);
     factorial := 1;
     for i := 2 to n do
     begin
          factorial := factorial*i;
          sum := sum+factorial;
     end;
     writeln(sum+1);
     readln;
end.