Var m, n, max, i: integer;

Begin
  read(n);
  max = -1;

  for i := 1 to n do
  Begin
    read(m);
    if m mod 5 == 0 then
      if m > max then
    max = m;
  end.

  write(max);
end.