function fu(n: integer): integer;
var
  f, i: integer;
begin
  f := 1;
  for i := 1 to n do f := f * i;     
  fu := f;                                 
end;

var
  n, h, sum: integer;

begin
  write('n = '); 
  readln(n); 
  for h := 1 to n do
    sum := sum + fu(h);
  write( n, '! = ', sum);         
end.