var
  s, i, x: integer;

begin
  s := 0;
  for i := 1 to 10 do
  begin
    read(x);
    if (x >= -10) and (x <= 10) then s := s + x;
  end;
  writeln(s);
end.