var 
// Максимальные числа, которые делятся на 7, 2 и 14 соответственно, 
// и просто максимальное, но не делящееся на 14 
  M7,M2,M14,MAX : longint;  

  dat,res,i,N   : longint;  

begin
//  Инициализация
 M7  := 0;
 M2  := 0;
 M14 := 0;
 MAX := 0;

 readln(N);                     // Определяем число элементов последовательности

 // Считываем поэлементно последовательность из N чисел  
 for i := 1 to N do 
 begin
   readln(dat);                 // Считали очередное число последовательности
   
   // Проверяем, не является ли оно самым большим, 
   // делящимся на 7, но не на 2 из рассмотренных  
   
   if                           
     (dat mod 7=0) and (dat mod 2>0) and (dat>M7) 
   then
       M7 := dat;
     
   // Проверяем, не является ли оно самым большим, 
   // делящимся на 2, но не на 7 из рассмотренных 
    
   if 
     (dat mod 2 = 0) and (dat mod 7 > 0) and (dat > M2) 
   then
       M2 := dat;

   // Проверяем, не является ли оно самым большим из 
   // делящихся на 14 
   // либо просто самым большим, из неравных ему
   // среди полученных  чисел
             
   if 
     (dat mod 14 = 0) and (dat > M14) 
   then 
       begin
          if 
            M14 > MAX 
          then 
              MAX := M14;
         
          M14 := dat
       end
   else
       if 
         dat > MAX 
       then
           MAX := dat;
 end;                       // Конец цикла ввода и поиска множителей
   
 if 
   (M7 * M2) < (M14 * MAX) 
 then
    res := M14*MAX
 else
    res := M7*M2;
    
 writeln(res);

end.