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.
#include <iostream>
using namespace std;
int main()
{
int b,c,d,e,f,g;
cin >>b;
d=30001;
int A[b];
for ( int i=0;b>i;i++ )
{
cin >> A[i];
}
for ( int i=0;b>i;i++ )
{
if ( A[i]%13 ==0 )
{
if ( A[i]< d )
{
d=A[i];
}
}
}
cout << d;
}
