Adding some more judges, here and there.

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

var\r
        sum: int64;\r
        x: longint;\r
begin\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.