lama_byterun/lama-compiler/regression/test021.lama

10 lines
87 B
Text
Raw Normal View History

var n, f = 1;
n := read ();
for skip, n >= 1, n := n-1
do
f := f * n
od;
write (f)