Вывести на экран значение n!, n – целое число, вводимое с клавиатуры.

Var
    i, n: integer;
    nf: longint;

begin
    readln(n);
    nf := 1;
    for i := 1 to n do
        nf := nf * i;
    writeln(nf);
end.