var n,i,sum,nr,left,right,fleft,fright,bestsum:longint;

begin
    assign(input,'ssm.in'); reset(input);
    assign(output,'ssm.out'); rewrite(output);
    readln(input,n);
    for i:=1 to n do
    begin
        read(input,nr);
        if sum>=0 then
        begin
            sum:=sum+nr;
            inc(right);
        end
        else
           begin
               sum:=nr;
               left:=i;
               right:=i;
           end;
        if sum>bestsum then
        begin
            bestsum:=sum;
            fleft:=left;
            fright:=right;

        end;
    end;
    write(output,bestsum,' ',fleft,' ',fright);
end.