select "std"
factorial = 1
n = readln()
for(i=1,i<=n,++i)
        {
            factorial = factorial * i
        }
           showln "factorial of " + n + " is " + factorial