gistfile1.pas

program hello;

function factorial(n: integer): integer;
begin
    if (n < 2) then
        factorial := 1
    else
        factorial := n * factorial(n - 1);
end;

var
    n: integer;
begin
    readln(n);
    writeln(factorial(n))
end.