var a,suma:array[0..5000] of integer; {50000 pt fpc}
f:text;
n,k,i,inceput,ls,ld:longint;
v,x:longint;
begin
assign(f,'secv2.in');reset(f);
read(f,n,k);
for i:=1 to n do
begin
read(f,a[i]); suma[i]:=suma[i-1]+a[i];
end;
close(f);
inceput:=1; ls:=1; ld:=k; v:=suma[k]; x:=suma[k];
for i:=k+1 to n do
begin
v:=v+a[i];
if v<suma[i]-suma[i-k] then begin
                      v:=suma[i]-suma[i-k];
                      inceput:=i-k+1;
                      end;
if x<v then begin
            x:=v;
            ls:=inceput;
            ld:=i;
            end;
end;
for i:=ls to ld do
x:=x+a[i];
assign(f,'sevc2.out');rewrite(f);
write(f,ls,' ',ld,' ',x);
close(f);
end.