lama_byterun/regression/test028.expr
2019-09-19 18:37:08 +03:00

18 lines
No EOL
215 B
Text

global n, i, result;
fun fact (n) {
if n <= 1
then result := 1
else
fact (n-1);
result := result * n
fi
}
n := read ();
for i := n, i >= 1, i := i-1 do
fact (i);
write (i);
write (result)
od