var n,k,i,val,start,st,dr,rez:integer;
a,s:array[1..50000] of integer;
f,g:text;
begin
assign(f,'secv2.in');reset(f);
assign(g,'secv2.out');rewrite(g);
read(f,n,k);
for i:=1 to n do begin
  read(f,a[i])          ;
  s[i]:=s[i-1]+a[i];
end;
rez:=s[k];
st:=1;
dr:=k;
val:=s[k];
start:=1;
for i:=k+1 to n do begin
  val:=val+a[i];
    if val<s[i]-s[i-k] then begin
      val:=s[i]-s[i-k]           ;
      start:=i-k+1;
    end;
    if rez<val then begin
      rez:=val;
      st:=start;
      dr:=i;
    end;
end;
writeln(g,st,' ',dr,' ',rez);
close(g);
end.