var fi,fo:text;
    i,j,min,max,n,k,vl:longint;
    indi,indj:word;
    s:array[0..50002] of longint;
    a:array[0..50002] of integer;

begin
 assign(fi,'secv2.in'); reset(fi);
 assign(fo,'secv2.out'); rewrite(fo);
 readln(fi,n,k);
 for i:=1 to n do
  begin
   read(fi,a[i]);
   s[i]:=s[i-1]+a[i];
  end;
 max:=-maxlongint;
 min:=maxlongint;
 if n=k then
  begin
   writeln(fo,1,' ',n,' ',s[n]);
   close(fo);
   halt;
  end;
 for i:=0 to k do
  if s[i]<min then begin min:=s[i]; indj:=i+1; end;
 for i:=k to n do
  begin
    if s[i-k]<min then
     begin
      min:=s[i-k];
      indj:=i-k+1;
     end;
   if s[i]-min>max then
    begin
     indi:=i;
     max:=s[i]-min;
    end;
  end;
writeln(fo,indj,' ',indi,' ',max);
close(fo);
end.