Program secv2;
Var f:text;
    n,k,s,max,i,ss,mmax,st,dr,m,as,dd:longint;
    a:array[0..10000] of longint;
Begin
  assign(f,'secv2.in');
  reset(f);
  readln(f,n,k);
  s:=0;
  max:=0;
  st:=1;
  dr:=0;
  m:=-maxlongint;
  a[0]:=0;
  for i:=1 to n do
     begin
      ss:=s;
      mmax:=max;
      read(f,a[i]);
      s:=ss+a[i];
      if i>k then s:=s-a[i-k];
      max:=mmax+a[i];
      dr:=dr+1;
      if mmax+a[i]<s then begin max:=s; st:=i-k+1; dr:=i; end;
      if (max>m) and (i>=k) then begin m:=max; as:=st; dd:=dr; end;
     end;
  close(f);
  assign(f,'secv2.out');
  rewrite(f);
  Writeln(f,m);
  Writeln(f,as,' ',dd);
  close(f);
End.