program secventa;
var i,n,k,nr,pi,pf,pint,so,si:longint;
    f,g:text;
begin
  assign(f,'secv2.in');reset(f);
  assign(g,'secv2.out');rewrite(g);
  so:=0;
  pint:=1;
  si:=0;
  readln(f,n,k);
  for i:= 1 to k do
    begin
      read(f,nr);
      so:=so+nr;
    end;
  reset(f);
  readln(f);
  pi:=1;
  pf:=k;
  for i:=1 to n do
    begin
      read(f,nr);
      if si<0 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.