var f,g:text;
    n,i,smax,s,j,imax,jmax:longint;
    a:array[1..1000]of longint;
begin
assign(f,'ssm.in');reset(f);
assign(g,'ssm.out');rewrite(g);
readln(f,n);
for i:=1 to n do
    read(f,a[i]);
for i:=1 to n do
    begin
    s:=a[i];
    for j:=i+1 to n do
        begin
        if s>smax then begin
                       smax:=s;
                       imax:=i;
                       jmax:=j-1;
                       end;
        s:=s+a[j];
        end;
    end;
writeln(g,smax,' ',imax,' ',jmax);
close(g);
end.