var n,m,k,i,j,max,maxi,p,min,mini,maxl:longint;
    x,s:array[0..50000] of longint;
    t:text;
begin
assign(t,'secv2.in'); reset(t);
s[0]:=0;
x[0]:=0;
readln(t,n,k);
for i:=1 to n do
  begin
    read(t,x[i]);
    s[i]:=s[i-1]+x[i];
  end;
max:=-maxlongint;
min:=0;
//s[0]:=-maxlongint;
for i:=k to n do
  begin
    p:=s[i]-min;
    if p>max then
      begin
        max:=p;
        maxi:=mini;
        maxl:=i;
      end;
    if s[i-k]<min then begin min:=s[i-k]; mini:=i-k; end;
  end;
close(t);
assign(t,'secv2.out'); rewrite(t);
write(t,maxi+1,' ',maxl,' ',max);
close(t);
end.