NEERC/xtra/xtra_as_il.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                 sum := sum + x;\r
   9                 writeln(sum);\r
  10                 flush(output);\r
  11         end;\r
  12 end.