s := 0;

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

write (s)