Var i, n, a, min: integer;
begin
min:=30000;
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.
VmFyIGksIG4sIGEsIG1pbjogaW50ZWdlcjsKYmVnaW4KbWluOj0zMDAwMDsKcmVhZGxuIChuKTsKZm9yIGk6PTEgdG8gbiBkbwpiZWdpbgpyZWFkbG4gKGEpOwppZiAoYSBtb2QgMTM9MCkgYW5kIChhPG1pbikgdGhlbgptaW46PWE7CmVuZDsKd3JpdGVsbiAobWluKTsKZW5kLg==