lama_byterun/regression/test016.lama

14 lines
No EOL
96 B
Text

var s, n;
n := read ();
s := 1;
do
s := s * n;
n := n - 1
while n != 0 od;
write (s)