var  f,g:text;
     n,k,i,sc,smax,nr,imax,jmax,ic:longint;
     a:array[1..50100] 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
    read(f,a[i]);
sc:=-25000;smax:=-25000;nr:=0;
for i:=1 to n do
    if sc>=0 then begin
       sc:=sc+a[i];
       inc(nr);
       if (sc>smax) and (nr>=k) then begin
          smax:=sc;
          imax:=ic;
          jmax:=i;
       end;
    end else begin
        sc:=a[i];
        nr:=1;
        ic:=i;
    end;
writeln(g,imax,' ',jmax,' ',smax);
close(g);
close(f);
end.