lama_byterun/regression/test016.lama
2021-01-31 19:27:00 +03:00

14 lines
No EOL
98 B
Text

local s, n;
n := read ();
s := 1;
do
s := s * n;
n := n - 1
while n != 0 od;
write (s)