const inf=9999992989882145649;
var n,i,j,k,l,s:longint;
    a:array[0..501] of qword;
    min:array[1..501,1..501] of qword;
    bif,bof:array[1..1 shl 16] of char;

begin
 assign(input,'podm.in');
 assign(output,'podm.out');
 reset(input);
 rewrite(output);
 settextbuf(input,bif);
 settextbuf(output,bof);

  readln(n);
   for i:=0 to n do
    read(a[i]);

   for i:=2 to n do
    for j:=1 to n-i+1 do
     begin
      l:=i+j-1;
      min[j][l]:=inf;
       for k:=j to l-1 do
        begin
         min[2][1]:=min[j][k]+min[k+1][l]+a[j-1]*a[k]*a[l];
         if min[2][1]<min[j][l] then min[j][l]:=min[2][1];
        end;
     end;

    writeln(min[1][n]);

 close(input);
 close(output);
{Totusi este trist in lume}
end.