var i,a,s:integer;
begin
for i:=1 to 10 do begin readln(a); if a>0 then s:=s+a; end;
writeln(s);
end.
