program secventa;
var i,n,k,nr,pi,pf,pint:longint;
    so,si:int64;
    f,g:text;
begin
  assign(f,'secv2.in');reset(f);
  assign(g,'secv2.out');rewrite(g);
  so:=-maxlongint;
  pint:=1;
  pf:=1;
  pi:=1;
  readln(f,n,k);
  for i:=1 to n do
    begin
      read(f,nr);
      if (si<=0)and(pf-pi+1>=k) then
        begin
          si:=nr;
          pint:=i;
        end
      else
        si:=si+nr;
      if (si>so)and(i-pint+1>=k) then
        begin
          so:=si;
          pi:=pint;
          pf:=i;
        end;
    end;
  writeln(g,pi,' ',pf,' ',so);
  close(f);
  close(g);
end.