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

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