var f,g:text;
    a,pd:array[0..6000000]of longint;
    xx,yy,x,n,i,s,ss,y,k:longint;
begin
assign(f,'secv2.in');reset(f);assign(g,'secv2.out');rewrite(g);
read(f,n,k);  s:=-maxlongint;
for i:=1 to n do
  begin
    read(f,a[i]);
    if pd[i-1]+a[i]>=a[i] then begin
                                ss:=pd[i-1]+a[i];
                                yy:=i; end
                              else begin
                                ss:=a[i]; xx:=i; yy:=i; end;
    if (ss>s)and(yy-xx>=k) then begin s:=ss; x:=xx; y:=yy;  end;
    pd[i]:=ss;
  end;
write(g,x,' ',y,' ',s);
close(f);close(g);
end.