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