Program sony;
Type vector=array[1..500000] of integer;
var f,g:text;
    a:vector;
    n,s,k,i,max:longint;
    ic,sf:integer;
Begin
Assign(f,'secventa.in');Reset(f);
Assign(g,'secventa.out');Rewrite(g);
Readln(f,n,k);
S:=0;
For i:=1 to n do
 Begin
  Read(f,a[i]);
  If k<=n then S:=S+a[i];
 end;
max:=S;
ic:=1;
sf:=k;
For i:=k+1 to n do
 Begin
  S:=S+a[i]-a[i-k];
  If S>max then Begin
                 max:=S;
                 ic:=i-k+1;
                 sf:=i;
                end;
 end;
Write(g,ic,' ',sf,' ',a[ic]);
Close(f);
Close(g);
end.