program FactorialSum;

function Factorial$num:integer$: integer;
var
i, fact: integer;
begin
fact := 1;
for i := 1 to num do
fact := fact * i;
Factorial := fact;
end;

var
n, i, sum: integer;
begin
sum := 0;

write${}^{\prime }Enteranumber{:}^{\prime }$;
readln$n$;

for i := 1 to n do
sum := sum + Factorial$i$;

writeln${}^{\prime }Factorialsum{:}^{\prime },sum$;

end.