#include<iostream>
#include<cstdio>
#include<queue>
#include<algorithm>
#include<vector>
#include<cstring>
#include<string>
#include<map>
#include<stack>
#include<cmath>
#include<set>
#include<climits>
#include<iomanip>
#include<cassert>
using namespace std;
typedef long long LL;
#define N 110000
#define mod 10007
#define PI acos(-1)
const int INF=INT_MAX;
int a[N],x;
int main()
{
    int n;
    while(~scanf("%d",&n))
    {
        int ans=0;
        for(int i=0;i<n;i++)
        {
            scanf("%d",&x);
            ans+=x;
            a[i]=(1890*x+143)%mod-x;
        }

        int s=0,ma=0;
        for(int i=0;i<n;i++)
        {
            s+=a[i];
            ma=max(s,ma);
            if(s<0) s=0;
        }

        printf("%d\n",ans+ma);

    }
    return 0;
}