program factorial;

function f(x:longint):longint;
var i,n:longint;
begin
    n:=1;

    for i:=1 to x do

    begin
        n:=n*i;
    end;

    f:=n;
end;

var n: longint;

begin
    write('n = ');

    readln(n);

    writeln('n! = ', f(n));
end.