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