我写程序经常一行写特别长，于是写错半个括号都没法查- -
While (l<r) And (((f[i]-s[i]+i*a[i+1])-(f[q[r]]-s[q[r]]+q[r]*a[q[r]+1]))*(a[q[r]+1]-a[q[r-1]+1])<=((f[q[r]]-s[q[r]]+q[r]*a[q[r]+1])-(f[q[r-1]]-s[q[r-1]]+q[r-1]*a[q[r-1]+1]))*(a[i+1]-a[q[r]+1]{左边那个方括号，一开始写错了})) Do Dec(r);