求错!!!
var n,m,i,j,k,la,lb:integer;
z,max:longint;
a:array[0..150]of longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
a[0]:=a[n];
a[n+1]:=a[1];
z:=0;
for m:=n downto 2 do
begin
k:=1001;max:=0;
for i:=1 to m do
if (a[i]<k) then k:=a[i];
for i:=1 to m do
if (a[i]=k)and(a[i-1]*a[i]*a[i+1]>max) then
begin
max:=a[i-1]*a[i]*a[i+1];
la:=i;
end;
z:=z+max;
for i:=la to m do a[i]:=a[i+1];
if la=m then a[0]:=a[m-1];
if la=1 then a[m]:=a[1];
end;
write(z);
end.