Var i,a,n,min:integer;
Begin
Readln (n);
Min:=30000;
For i:=1 to n do
Begin
Readln(a);
If (a < min) and (a mod 13 = 0) then
Min:= a;
End;
Write(min);
End.
VmFyIGksYSxuLG1pbjppbnRlZ2VyOwpCZWdpbgpSZWFkbG4gKG4pOwpNaW46PTMwMDAwOwpGb3IgaTo9MSB0byBuIGRvCkJlZ2luClJlYWRsbihhKTsKSWYgKGEgPCBtaW4pIGFuZCAoYSBtb2QgMTMgPSAwKSB0aGVuCk1pbjo9IGE7CkVuZDsKV3JpdGUobWluKTsKRW5kLg==