10 lines
212 B
Plaintext
10 lines
212 B
Plaintext
PRINT "This program calculates the faculty of a number."
|
|
ASSIGN 1 fac
|
|
NUMIN "Please input your number!" num
|
|
ASSIGN num i
|
|
MUL fac i fac
|
|
SUB i 1 i
|
|
GOTO 5 i
|
|
PRINT "The faculty of " num " is " fac "."
|
|
EXIT
|