Программа: Вычисление n факториала

Задача: Вычислить сумму факториалов 1!+2!+3!+...n! значение n вводится с клавиатуры

PROGRAM faktoriali;
	var sum,a,n,i:integer;
BEGIN
	a:=1;
	sum:=0;
	ReadLn(n);
	for i:=1 to n do
	  begin
		a:=i*a;
		sum:=sum+a;
	  end;
	write(sum);
END.