NEERC/xtra/xtra_as.dpr

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