Program HelloWorld(output);
var k, n, a, s: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 13 = 0) and (a<s) then
s:=a;
end;
writeln(a);
end.
UHJvZ3JhbSBIZWxsb1dvcmxkKG91dHB1dCk7CnZhciBrLCBuLCBhLCBzOiBpbnRlZ2VyOwpiZWdpbgpzOj0wOwpyZWFkbG4obik7CmZvciBrOj0xIHRvIG4gZG8KYmVnaW4KcmVhZGxuKGEpOwppZiAoYSBtb2QgMTMgPSAwKSBhbmQgKGE8cykgdGhlbgpzOj1hOwplbmQ7CndyaXRlbG4oYSk7CmVuZC4=