lama_byterun/regression/test021.lama

11 lines
91 B
Text
Raw Normal View History

var n, f;
2018-04-25 01:06:18 +03:00
n := read ();
2018-03-20 20:30:58 +03:00
f := 1;
for skip, n >= 1, n := n-1
do
f := f * n
od;
write (f)