var
  a: array[1..10] of integer;
  s, i: integer;

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