const MaxN=50001;
var
  fin,fout:text;
  n,i,k,start,finish:word;
  a:array[1..MaxN] of integer;
  ossz:longint;
  max,elem:longint;
  maxi,maxj:word;


begin

  assign(fin,'secv2.in');reset(fin);
  assign(fout,'secv2.out');rewrite(fout);

  readln(fin,n,k);

  for i:=1 to n do
    read(fin,a[i]);

  close(fin);


  max:=0;
  for i:=1 to k do begin
    max:=max+a[i];
  end;
  maxi:=1;
  maxj:=k;


  finish:=0;
  start:=1;


  for i:=1 to n do begin

    finish:=finish+1;
    elem:=a[i];
    if elem<0 then begin
      if ossz<abs(elem) then begin start:=finish+1;ossz:=0; end
                        else ossz:=ossz+elem;
    end
    else if elem>0 then ossz:=ossz+elem;

    if (ossz > max)and(finish-start>=k-1) then begin
       max:=ossz;
       maxi:=start;
       maxj:=finish;
    end;



  end;


  writeln(fout,maxi,' ',maxj,' ',max);
  close(fout);
end.