program parantezare_de_matrici;
  var n,i,j,l,k:integer;
      a:array [0..500] of qword;
      m:array [1..500,1..500] of qword;
      x:qword;

begin
  assign(input,'podm.in');
  reset(input);
  assign(output,'podm.out');
  rewrite(output);
  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;
        m[j,l]:=10000000000000000000;
        for k:=j to l-1 do
          begin
            x:=m[j,k]+m[k+1,l]+a[j-1]*a[k]*a[l];
            if x<m[j,l] then m[j,l]:=x;
          end;
       end;
  writeln(m[1,n]);
  close(input);close(output);
end.