lama_byterun/regression/test021.expr
2019-09-29 02:47:07 +03:00

11 lines
No EOL
93 B
Text

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