var s,b,i2,b2:array[1..50000] of longint;
n,k,i,j,v,smax,ii,jj:longint;
f,g:text;
begin
assign(f,'secv2.in');
assign(g,'secv2.out');
reset(f);rewrite(g);
readln(f,n,k);
read(f,v);
s[1]:=v;
b[1]:=v;
i2[1]:=1;
for i:=2 to n do
    begin
    read(f,v);
    s[i]:=s[i-1]+v;
    if b[i-1]>=0 then
       begin
       b[i]:=b[i-1]+v;
       i2[i]:=i2[i-1];
       end
    else
        begin
        b[i]:=v;
        i2[i]:=i;
        end;
    end;
smax:=-maxlongint;
for i:=k to n do
    if s[i]-s[i-k+1]+b[i-k+1]>smax then
       begin
       smax:=s[i]-s[i-k+1]+b[i-k+1];
       ii:=i2[i-k+1];
       jj:=i;
       end;
write(g,ii,' ',jj,' ',smax);
close(f);close(g);
end.