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

14 lines
No EOL
102 B
Text

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