lama_byterun/lama-compiler/regression/test016.lama

14 lines
No EOL
99 B
Text

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