program secv2;
var f,g:text;n,k,i,st,sf,max,min,a,poz:longint;
    s:array[0..50001]of longint;
begin
    assign(f,'secv2.in');reset(f);
    assign(g,'secv2.out');rewrite(g);
      readln(f,n,k);
      for i:=1 to n do begin
       read(f,a);
       s[i]:=s[i-1]+a;
        if (max<s[i]-min)and(i-poz>=k) then begin
         st:=poz+1;
         sf:=i;
         max:=s[i]-min;end;
        if (s[i]<min)and(n-i>k) then begin
         poz:=i;
         min:=s[i];end;
        end;
        write(g,st,' ',sf,' ',max,' ');
        close(g);close(f);
        end.