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

14 lines
No EOL
101 B
Text

local s, n;
n := read ();
s := 1;
repeat
s := s * n;
n := n - 1
until (n == 0);
write (s)