uses crt;
var f:text; i,j,z,a1,b1,c1,n:longint; a:array[1..100]of longint;
begin
clrscr;
assign(f,'BASO.INP');reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
assign(f,'BASO.OUT');rewrite(f);
for i:=1 to n-2 do
for j:=i+1 to n-1 do
for z:=j+1 to n-1 do
if a[i]*a[j]*a[z]>a1*b1*c1 then
begin a1:=a[i]; b1:=a[j]; c1:=a[z]; end;
writeln(f,a1,' ',b1,' ',c1);
close(f);
end.