program sandauga;
  var n, san, i : integer;
begin
  readln(n);
  san := 1;
  i := 1;
  while i <= n do
    begin
      san := san * i;
      i := i + 1
    end;
  writeln ('sandauga = ', san);
 readln;
end.