22 lines
430 B
Text
22 lines
430 B
Text
data:
|
|
n is number
|
|
|
|
procedure:
|
|
sub factorial
|
|
parameters:
|
|
n is number
|
|
result is number
|
|
local data:
|
|
i is number
|
|
m is number
|
|
procedure:
|
|
store 1 in result
|
|
in m solve n + 1
|
|
for i from 1 to m step 1 do
|
|
multiply result by i in result
|
|
repeat
|
|
end sub
|
|
create statement "get factorial of $ in $" executing factorial
|
|
|
|
get factorial of 5 in n
|
|
display n lf
|