var   a:array[0..400000]of int64;
        f:text;
        nr,max,inceput,cont:int64;
        n,i,j:longint;
begin
        assign(f,'buline.in');
        reset(f);
                 read(f,n);
                 for i:=1 to n do
                 begin
                        read(f,a[i],nr);
                        a[i+n]:=a[i];
                        if nr=0 then
                        begin
                                a[i]:=-a[i];a[i+n]:=a[i];
                        end;
                        a[i]:=a[i]+a[i-1]
                 end;
                 for i:=n+1 to 2*n do
                        a[i]:=a[i]+a[i-1];
        close(f);
        max:=-2000000000;
        for i:=1 to 2*n do
        begin
                for j:=i to 2*n do
                begin
                        if a[j]-a[i-1]>max then
                        begin
                                max:=a[j]-a[i-1];
                                inceput:=i;
                                cont:=j-i+1;
                        end;
                        if j-i+1>=n then
                                break;
                end;
        end;
        assign(f,'buline.out');
        rewrite(f);
                write(f,max,' ',inceput,' ',cont);
        close(f);
end.