uses crt;
var a:array[1..10000] of longint;
    i,j,k,n:word;
    max,t:longint;
begin
    clrscr;
    repeat
        readln(n);
    until (3<=n) and (n<=10000);
    for i:=1 to n do
       repeat
           read(a[i]);
       until abs(a[i])<=1000;
    readln;
    max:=a[1]*a[2];
    for i:=1 to n-2 do
       begin
           for j:=i+1 to n-1 do
              begin
                  t:=a[i]*a[j];
                  if max<t then t:=max;
                  for k:=j+1 to n do
                     begin
                         t:=a[i]*a[j]*a[k];
                         if max<t then max:=t;
                     end;
              end;
       end;
    if a[n-1]*a[n]>max then max:=a[n-1]*a[n];
    writeln(max);
readln;
end.

uses crt;
var i,n,max1,max2,max3:longint; a:array[1..10000]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('a[',i,']= ');readln(a[i]); 
      end;
   max1:=a[1];
   for i:=1 to n do 
      if max1<a[i] then max1:=a[i];
   writeln('So lon nhat la: ',max1);
   max2:=a[1];
   for i:=1 to n do 
      if (max2<a[i])and(a[i]<max1) then max2:=a[i];
   writeln('So lon nhi la: ',max2);
   max3:=a[1];
   for i:=1 to n do 
      if (max3<a[i])and(a[i]<max2) then max3:=a[i];
   writeln('So lon ba la: ',max3);
readln
end.