sωēeτ¨fαrm

program p1100;
var
 n,i:integer;
 a:array[1..30,1..30] of longint;
 b:array[1..30,1..30] of integer;

procedure try(l,r:integer);
var
 i,value:longint;
begin
 if l>r then a[l,r]:=1;
 for i:=l to r do
 begin
  if a[l,i-1]=0 then try(l,i-1);
  if a[i+1,r]=0 then try(i+1,r);
  value:=a[l,i-1]*a[i+1,r]+a[i,i];
  if value>a[l,r] then
  begin
   a[l,r]:=value;
   b[l,r]:=i;
  end;
 end;
end;

procedure print(l,r:longint);
begin
 if l>r then exit;
 write(b[l,r],' ');
 print(l,b[l,r]-1);
 print(b[l,r]+1,r);
end;

begin
 readln(n);
 for i:=1 to n do
 begin
  read(a[i,i]);
  b[i,i]:=i;
 end;

 try(1,n);
 writeln(a[1,n]);
 print(1,n);
 writeln;
end.