18 lines
135 B
Text
18 lines
135 B
Text
define f = 1, n = 0
|
|
|
|
print "Factorial"
|
|
print "Enter an integer: " \
|
|
|
|
input n
|
|
|
|
do
|
|
|
|
let f = f * n
|
|
|
|
-1 n
|
|
|
|
loop n > 0
|
|
|
|
print f
|
|
pause
|
|
end
|