program four

var n, s, k: longint;

begin
    write('n = ');
    readln(n);

    while k <= n do
    begin
        s:=s*k;
        k:=k+1;
    end;

    writeln(s);
end.