var v,s:array[0..50001]of int64;
    i,j,n,k,i1,i2,st:longint;
    max,sum:int64;
begin
assign(input,'secv2.in');reset(input);
assign(output,'secv2.out');rewrite(output);
readln(n,k);
for i:=1 to n do
        begin
        read(v[i]);
        s[i]:=s[i-1]+v[i];
        end;
{max:=-maxlongint;
for i:=0 to n-k do
        begin
        for j:=i+k to n do
                if (s[j]-s[i]>max) then
                        begin
                        max:=s[j]-s[i];
                        i1:=i+1;
                        i2:=j;
                        end;
        end;}
i1:=1;
i2:=k;
st:=1;
sum:=s[k];
max:=sum;
for i:=k+1 to n do
        begin
        sum:=sum+v[i];
        if sum<s[i]-s[i-k] then
                begin
                sum:=s[i]-s[i-k];
                st:=i-k+1;
                end;
        if sum>max then
                begin
                max:=sum;
                i1:=st;
                i2:=i;
                end;
        end;
writeln(i1,' ',i2,' ',max);
close(input);close(output);
end.