lama_byterun/regression/test016.expr
2018-03-20 23:13:51 +03:00

12 lines
No EOL
82 B
Text

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