Вычислить сумму 1! + 2! + 3! + ... + n! (значение n вводится с клавиатуры; 1 < n ≤ 10).
Решать через While или Repeat

vari,n,f,s:int64;beginread(n);i:=0;f:=1;while i<>n do begin i:=i+1; f:=f*i; s:=s+f; end;writeln(s);end.