//secventa de suma maxima (nr intre -100 si 100)
var f,g:text;
    x,i,sc,smax,k:integer;
    p,u,pmax:integer;
begin
        assign(f,'secv.in');
        reset(f);
        assign(g,'secv.out');
        rewrite(g);
        readln(f,i,k);
        sc:=0;
        smax:=-100;
        read(f,x);
        inc(i);
        p:=1;
        while not eof(f) do begin
                sc:=sc+x;
                if (sc>smax) and (p-i+1>k) then begin
                        smax:=sc;
                        pmax:=p;
                        u:=i;
                end;
                if  sc<=0 then begin
                        sc:=0;
                        p:=i+1;
                end;
                read(f,x);
                inc(i);
        end;
        writeln(g,smax);
        writeln(g,pmax,' ',u);
        close(f);
        close(g);
end.