NEERC/xtra/xtra_as_extra_number.dpr

   1 {$Q-,R-}\r
   2 var\r
   3         sum: int64;\r
   4         x: longint;\r
   5 begin\r
   6         sum := 0;\r
   7         while true do begin\r
   8                 readln(x);\r
   9                 sum := sum + x;\r
  10                 writeln(sum);\r
  11                 flush(output);\r
  12                 if x = 0 then break;\r
  13         end;\r
  14 end.