program sumcol; var num, tot: integer; begin tot:=0; while not Eof(input) do begin readLn(input, num); tot := tot + num; end; WriteLn(tot); end.