program cc;
var
g:array[1..100,1..100] of longint;
a:array[1..100] of longint;
n,s,i,j,k,min:longint;
f1,f2:text;

procedure init;
begin
assign(f1,'shizi.in');
reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);

for i:=1 to n do
for j:=i to n do
begin
s:=0;
for k:=i to j do s:=s+a[k];
g[i,j]:=s;
g[j,i]:=s;
end;
end;

procedure main;
var
i,j,k:longint;
f:array[1..100,1..100] of integer;
min:longint;
begin
min:=maxlongint;
for i:=2 to n do
for j:=1 to n-i+1 do
begin
min:=f[i-1,j];
for k:=i-1 downto 1 do
if f[k,j]+f[i-k,j+k]<min then min:=f[k,j]+f[i-k,j+k];
f[i,j]:=g[j,i+j-1] +min;
end;

assign(f2,'shizi.out');
rewrite(f2);
writeln(f2,f[n,1]);

end;


begin

init;
main;
close(f1);
close(f2);
end.