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.
VmFyIGksYSxuLG1pbjppbnRlZ2VyOwpCZWdpbgpSZWFkbG4obik7Ck1pbjo9MzAwMDA7CkZvciBpOj0xIHRvIG4gZG8KQmVnaW4KUmVhZGxuKGEpOwpJZiAoYSA8IG1pbikgYW5kIChhIG1vZCAxMyA9IDApIHRoZW4KTWluOj0gYTsKRW5kOwpXcml0ZWxuKG1pbik7CkVuZC4=