newPaste

var
  max, n, i, cur:integer;
begin
  read(n);
  max := -4602;
  for i := 1 to n do
    begin
      read(cur);
      if (cur mod 3 = 0) and (cur > max) then
        max := cur;
    end;
  Writeln(max);
end.