2

var num, max, n, i : integer;
BEGIN
  readln(n);
  max := -1;
  for i := 1 to n do
  begin
    readln(num);
    if((num mod 10 = 3) and (num > max)) then
      max := num;
  end;
  writeln(max);
END.