вычисления суммы: 1! + 2! + 3! + ...

[PR0Z0N]

Помогите пожалуйста решить задачку на паскале:
Составить программу для вычисления суммы: 1! + 2! + 3! + ... + n! (n ≤ 15). Примечание. Тип результата значения функции — Longint.Помогите пожалуйста решить задачку на паскале:

[Monte-Kristo]

А n с клавиатуры вводится или расчитывать до n=15 ???

[__STDC__]

var
	sum,fact:longint;
	i,n:integer;
begin
	readln(n);
	sum := 0; fact := 1;
	for i:=1 to n do begin
		fact := fact*i;
		sum := sum+fact;
	end;
	writeln(sum);
	readln;
end.