lama_byterun/regression/test016.expr
2018-04-25 01:06:18 +03:00

12 lines
No EOL
86 B
Text

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