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

10 lines
88 B
Text

global s, n;
s := 0;
repeat
n := read ();
s := s + n
until (n == 0);
write (s)