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