Adding some more judges, here and there.

[and.git] / NEERC / xtra / xtra_as_direct.dpr

var\r
        sum: int64;\r
        x: longint;\r
begin\r
        reset(input, 'xtra.in');\r
        rewrite(output, 'xtra.out');\r
\r
        sum := 0;\r
        while true do begin\r
                readln(x);\r
                if x = 0 then break;\r
                sum := sum + x;\r
                writeln(sum);\r
                flush(output);\r
        end;\r
end.