var n,k,sc,sk,pi,pim,pfm,i,smax:longint;
    x:array[1..50000] of longint;
    f,g:text;
begin
  assign(f,'secv2.in');
  reset(f);
  assign(g,'secv2.out');
  rewrite(g);
  readln(f,n,k);
  for i:=1 to k do
      begin
        read(f,x[i]);
        sc:=sc+x[i];
      end;
  sk:=sc;
  smax:=sc;
  pim:=1;
  pfm:=k;
  pi:=1;
  for i:=k+1 to n do
      begin
        read(f,x[i]);
        sk:=sk+x[i]-x[i-k];
        if sk>sc+x[i] then
           begin
             sc:=sk;
             pi:=i-k+1;
           end
        else sc:=sc+x[i];
        if sc>smax then
           begin
             smax:=sc;
             pim:=pi;
             pfm:=i;
           end;
      end;
  writeln(g,pim,' ',pfm,' ',smax);
  close(g);
end.