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