ll a[2d5],b[2d5];
{
	ll @n,@x,@y;
	rd(a(n));
	ll s=sum(a(n));
	{
		ll l=-ll_inf,p=0,m=0;
		rep(i,n-2){
			ll t=m;
			m<?=p+=x-a[i];
			b[i]=l>?=p-t+s;
		}
	}
	{
		ll l=-ll_inf,p=0,m=0;
		rrep(i,2,n){
			ll t=m;
			m<?=p+=y-a[i];
			b[i-2]+=l>?=p-t;
		}
	}
	wtLn(b(n-2));
}