Program parantezare_matrice_dinamic;
const infinit=1000000000001;
var fi,fo : text;
    i,n,w,j,k : longint;
    c:array[0..501,0..501] of qword;
    d:array[0..510] of qword;

Function min(a,b:qword):qword;
begin
    if a<b then min:=a
           else min:=b;
end;

begin
     assign(fi,'podm.in'); reset(fi); readln(fi,n);
     assign(fo,'podm.out'); rewrite(fo);

     for i:=0 to n do read(fi,d[i]);
     for i:=1 to n do c[i,i]:=0;
     for i:=1 to n-1 do c[i,i+1]:=d[i-1]*d[i]*d[i+1];

     for w:=2 to n-1 do
       for i:=1 to n-w do begin
                          j:=w+i;
                          c[i,j]:=infinit;
                          for k:=i to j-1 do c[i,j]:=min(c[i,j],c[i,k]+c[k+1,j]+d[i-1]*d[k]*d[j]);
                          end;
     write(fo,c[1,n]);
     close(fi); close(fo);
end.