12 lines
221 B
Text
12 lines
221 B
Text
print "enter a number, n = ";
|
|
input n
|
|
print string(n) + "! = " + string(factorial(n))
|
|
|
|
function factorial(n)
|
|
factorial = 1
|
|
if n > 0 then
|
|
for p = 1 to n
|
|
factorial *= p
|
|
next p
|
|
end if
|
|
end function
|