9 lines
175 B
Text
9 lines
175 B
Text
|
select "std"
|
||
|
|
factorial = 1
|
||
|
|
n = readln()
|
||
|
|
for(i=1,i<=n,++i)
|
||
|
|
{
|
||
|
|
factorial = factorial * i
|
||
|
|
}
|
||
|
|
showln "factorial of " + n + " is " + factorial
|