program AB;
var   x,y:text;
      a,s:integer;
begin
assign (x,'adunare.in');
assign (y,'aduncare.out');
reset (x); rewrite (y);
s:=0;
while not (eof (x)) do begin
        read (x,a);
        s:=s+a;
        end;
write (y,s);
close (x);
close (y);
end.