type vector=array[0..5000] of longint;
var v,s:vector;
    a,b,i,j,sum,n,max,o:longint;
    fin,fout:text;
begin
assign(fin,'ssm.in');
assign(fout,'ssm.out');
reset(fin);
rewrite(fout);
read(fin,n);
sum:=0;
for i:=1 to n do
    begin
    read(fin,v[i]);
    sum:=sum+v[i];
    s[i]:=sum;
    end;
s[0]:=0;
i:=0;
max:=-maxint;
while i<n do
    begin
    j:=n-i;
    o:=1;
    while j<=n do
          begin
          if s[j]-s[o]>max then
             begin
             max:=s[j]-s[o];
             a:=o+1;
             b:=j;
             end;
          inc(o);
          inc(j);
          end;
    inc(i);
    end;
write(fout,max,' ',a,' ',b);
close(fin);
close(fout);
end.