NEERC/xtra/xtra_strange_wrong.dpr

   1 {$O-}\r
   2 var\r
   3   sum, num: int64;\r
   4 begin\r
   5   sum := 0;\r
   6   while (true) do \r
   7   begin\r
   8     read(num);\r
   9     if (num = 0) then \r
  10     begin\r
  11       sum := sum mod num;\r
  12       writeln('non-integer');\r
  13       break;\r
  14     end;\r
  15     sum := sum + num;\r
  16     writeln(sum);\r
  17     flush(output);\r
  18   end;\r
  19 end.\r