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;
Writeln (min);
End.
VmFyIGksYSxuLG1pbjppbnRlZ2VyOwpCZWdpbgpSZWFkbG4gKG4pOwpNaW46PTMwMDAwOwpGb3IgaTo9MSB0byBuIGRvCkJlZ2luClJlYWRsbiAoYSk7CklmIChhIDwgbWluKSBhbmQgKGEgbW9kIDEzID0gMCkgdGhlbgpNaW46PSBhOwpFbmQ7CldyaXRlbG4gKG1pbik7CkVuZC4=