求大神看90分代码

var l,ans,i,j,k,n:longint;
    a:array[0..400]of longint;
    f:array[0..400,0..400]of longint;

function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
end;

begin
readln(n);
for i:=1 to n do begin
read(a[i]);
a[i+n]:=a[i];
end;
for l:=2 to n do
for i:=1 to n+n-l do
begin
   j:=i+l-1;
   for k:=i to j-1 do
   f[i,j]:=max(f[i,j],f[i,k]+f[k+1,j]+a[i-1]*a[j]*a[k]);
   if f[i,j]>ans then ans:=f[i,j];
end;
writeln(ans);
end.