begin
  var n: integer;
  while True do
  begin
    if integer.TryParse(ReadString('n ='), n) 
      and n.InRange(1, 1000000) then break
  end;
  
  var L := new List<integer>;
  
  var i := 1;
  while i <= n do
  begin
    var a: integer;
    if integer.TryParse(ReadString($'{i}:'), a)
      and a.InRange(1, 30000) then i += 1;
    if a mod 10 = 3 then l.Add(a);
  end;
  
  var Sum := 0;
  var k := 0;
  
  if l.Count > 2 then
    loop 3 do
    begin
      var Max := integer.MinValue;
      for var j := 0 to l.Count - 1 do
        if Max < l[j] then begin Max := l[j]; k := j end;
      Sum += Max;
      l.RemoveAt(k);
    end;
  Sum.Println;
end.