#include<bits/stdc++.h>
#define ll long long
using namespace std;
const int maxn=5e5+10;
int mn[maxn*4],a[maxn],n,cur1,cur2;
void up(int o,int l,int r,int k,int v)
{
if(l==r)
{
mn[o]=v;
return;
}
int m=(l+r)/2,ls=o*2,rs=o*2+1;
if(k<=m)up(ls,l,m,k,v);
else up(rs,m+1,r,k,v);
mn[o]=min(mn[ls],mn[rs]);
}
void qu(int o,int l,int r,int ql,int qr,int v,int tp)
{
int m=(l+r)/2,ls=o*2,rs=o*2+1;
if(l>=ql&&r<=qr)
{
if(l==r)
{
if(mn[o]<v)
{
if(tp==1)
cur1=max(cur1,l);
else
cur2=min(cur2,l);
}
return;
}
if(tp==1)
{
if(mn[rs]<v)
qu(rs,m+1,r,ql,qr,v,tp);
else if(mn[ls]<v)qu(ls,l,m,ql,qr,v,tp);
}
else
{
if(mn[ls]<v)qu(ls,l,m,ql,qr,v,tp);
else if(mn[rs]<v)qu(rs,m+1,r,ql,qr,v,tp);
}
return;
}
if(ql<=m)qu(ls,l,m,ql,qr,v,tp);
if(qr>m)qu(rs,m+1,r,ql,qr,v,tp);
}
ll Mx[maxn*4],Mn[maxn*4];
void update(int o,int l,int r,int k, ll v)
{
if(l==r)
{
Mx[o]=Mn[o]=v;
return;
}
int m=(l+r)/2,ls=o*2,rs=o*2+1;
if(k<=m)update(ls,l,m,k,v);
else update(rs,m+1,r,k,v);
Mx[o]=max(Mx[ls],Mx[rs]);
Mn[o]=min(Mn[ls],Mn[rs]);
}
ll qumax(int o,int l,int r,int ql,int qr)
{
if(l>=ql&&r<=qr)return Mx[o];
int m=(l+r)/2,ls=o*2,rs=o*2+1;
ll res=-1e18;
if(ql<=m)res=max(res,qumax(ls,l,m,ql,qr));
if(qr>m)res=max(res,qumax(rs,m+1,r,ql,qr));
return res;
}
ll qumin(int o,int l,int r,int ql,int qr)
{
if(l>=ql&&r<=qr)return Mn[o];
int m=(l+r)/2,ls=o*2,rs=o*2+1;
ll res=1e18;
if(ql<=m)res=min(res,qumin(ls,l,m,ql,qr));
if(qr>m)res=min(res,qumin(rs,m+1,r,ql,qr));
return res;
}
ll query(int p,int l,int r,int tp)
{
if(tp==1)return qumax(1,0,n,p,r)-qumin(1,0,n,l-1,p-1);
else return qumin(1,0,n,p,r)-qumax(1,0,n,l-1,p-1);
}
ll gao(int p)
{
cur1=0,cur2=n+1;
qu(1,1,n,p,n,a[p],2);
qu(1,1,n,1,p,a[p],1);
cur1++,cur2--;
ll ans=0;
if(a[p]>=0)ans=query(p,cur1,cur2,1)*a[p];
else ans=query(p,cur1,cur2,2)*a[p];
return ans;
}
int main()
{
int x;
ll ans=-1e18;
ll res=0;
scanf("%d",&n);
for(int i=1;i<=n;i++)
{
scanf("%d",&x);
a[i]=x;
up(1,1,n,i,x);
res+=x;
update(1,0,n,i,res);
}
for(int i=1;i<=n;i++)
ans=max(ans,gao(i));
printf("%lld\n",ans);
}