lama_byterun/regression/test023.lama

10 lines
82 B
Text

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