lama_byterun/regression/test021.expr
2018-03-20 20:30:58 +03:00

9 lines
No EOL
76 B
Text

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