Program z;
var x,max,n,i:integer;
begin
readln(n); {запросить количество чисел}
max:=0; {начальное значение максимума}
for i:=1 to n do
begin
readln(x); {считать очередное число}
if (x mod 16=0) and (x>max)
then max:=x; {если число кратно 16 и больше предыдущего}
{значения max, то считать его максимумом}
end;
writeln(max);
end.