lama_byterun/regression/test016.expr
2019-04-10 22:15:08 +03:00

12 lines
No EOL
88 B
Text

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