石子归并-2：区间DP{环形}

题目描述 Description
在一个园形操场的四周摆放N堆石子,现要将石子有次序地合并成一堆.规定每次只能选相邻的2堆合并成新的一堆，并将新的一堆的石子数，记为该次合并的得分。
试设计出1个算法,计算出将N堆石子合并成1堆的最小得分和最大得分.

输入描述 Input Description
数据的第1行试正整数N,1≤N≤100,表示有N堆石子.第2行有N个数,分别表示每堆石子的个数.

输出描述 Output Description
输出共2行,第1行为最小得分,第2行为最大得分.

样例输入 Sample Input
4
4 4 5 9

样例输出 Sample Output
43
54

这道题和石子归并1一样，转移方程为f[i,j]:=f[i,k-1]+f[k,j]+sum[i,j];
但由于这道题是环形的，所以与石子归并1也有不同，
可以将数组扩展，求从1~n，2~n+1,...,n~2*n-1的最小得分，再从中取最小值。
最大值方法相同。
代码
var stone:array[1..200]of longint;
sum,f:array[0..200,1..200]of longint;
f2:array[0..200,1..200]of longint;
max,maxx:longint;
minx,h,min:longint;
i,j,k,l,n:longint;

begin readln(n);
for i:=1 to n do
read(stone[i]);
for i:=1 to n-1 do
stone[i+n]:=stone[i];

fillchar(sum,sizeof(sum),0);
for i:=1 to 2*n-1 do
begin sum[i,i]:=stone[i];
for j:=i+1 to i+n-1 do
sum[i,j]:=sum[i,j-1]+stone[j];
end;

for i:=1 to n do
begin for j:=i+n-1-1 downto i do
for k:=j+1 to i+n-1 do
begin min:=maxlongint;
max:=0;
for l:=j+1 to k do
begin if f[j,l-1]+f[l,k]+sum[j,k]max
then max:=f2[j,l-1]+f2[l,k]+sum[j,k];
end;
f[j,k]:=min;
f2[j,k]:=max;
end;
end;

minx:=maxlongint;
for i:=1 to n do
begin
if minx>f[i,i+n-1]
then minx:=f[i,i+n-1];
end;
maxx:=0;
for i:=1 to n do
if maxx石子归并-2：区间DP{环形}