begin
  var i, s, j, g : integer;
  s := 0;
  readln(j);
  while j <> 0 do
  begin
    if (j mod 8 = 0) and (j mod 10 = 6) then
      s := s + j;
    readln(j);
  end;
  writeln(s);
end.