Var i, n, a, min: integer;
begin
min:=0;
readln (n);
for i:=1 to n do
begin
readln (a);
if (a mod 13=0) and (a<min) then
min:=a;
end;
writeln (min);
end.
VmFyIGksIG4sIGEsIG1pbjogaW50ZWdlcjsKYmVnaW4KbWluOj0wOwpyZWFkbG4gKG4pOwpmb3IgaTo9MSB0byBuIGRvCmJlZ2luCnJlYWRsbiAoYSk7CmlmIChhIG1vZCAxMz0wKSBhbmQgKGE8bWluKSB0aGVuCm1pbjo9YTsKZW5kOwp3cml0ZWxuIChtaW4pOwplbmQu