program secv2;
var f,g:text;
        n,k:qword;
        v,aux:array [1..50001] of longint;



procedure iofile;
var i:longint;
begin
        assign(f,'secv2.in');
        reset(f);
        assign(g,'secv2.out');
        rewrite(g);
        readln(f,n,k);
        read(f,v[1]);
        aux[1]:=v[1];
        for i:=2 to n do
                begin
                read(f,v[i]);
                aux[i]:=v[i]+aux[i-1];
        end;
        close(f);
end;




procedure prel;
var poz,p,u,sum,max:longint;
        i:longint;
begin
        p:=1;
        u:=k;
        poz:=1;
        sum:=aux[k];
        max:=-maxlongint;
        for i:=k+1 to n do
                begin
                        sum:=sum+v[i];
                        if sum<aux[i]-aux[i-k] then
                                begin
                                        sum:=aux[i]-aux[i-k];
                                        poz:=i-k+1;
                                end;
                        if sum>max then
                                begin
                                        max:=sum;
                                        p:=poz;
                                        u:=i;
                                end;
                end;
        writeln(g,p,' ',u,' ',max);
        close(g);
end;




begin
        iofile;
        prel;
end.