Program sony;
Type vector=array[0..50000] of longint;
var f,g:text;
    s,a:vector;
    n,k,i,max,ic,sf,val,start:longint;
Begin
Assign(f,'secv2.in');Reset(f);
Assign(g,'secv2.out');Rewrite(g);
Readln(f,n,k);
S[0]:=0;
For i:=1 to n do
 Begin
  Read(f,a[i]);
  s[i]:=s[i-1]+a[i];
 end;
max:=S[k];
ic:=1;
sf:=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 max<val then Begin
                   max:=val;
                   ic:=start;
                   sf:=i;
                  end;
 end;
Write(g,ic,' ',sf,' ',max);
Close(f);
Close(g);
end.