Program HelloWorld(output);
var k, n, a, amin: integer;
begin
amin:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 13 = 0) and (a>amin) then
amin:=a;
end;
writeln(a);
end.
UHJvZ3JhbSBIZWxsb1dvcmxkKG91dHB1dCk7CnZhciBrLCBuLCBhLCBhbWluOiBpbnRlZ2VyOwpiZWdpbgphbWluOj0wOwpyZWFkbG4obik7CmZvciBrOj0xIHRvIG4gZG8KYmVnaW4KcmVhZGxuKGEpOwppZiAoYSBtb2QgMTMgPSAwKSBhbmQgKGE+YW1pbikgdGhlbgphbWluOj1hOwplbmQ7CndyaXRlbG4oYSk7CmVuZC4=