var v,aux : array[0..50001] of longint;
    n,k,i,j,poz,p,max,sum,u : longint;
    f,g : text;
begin
  assign(f,'secv2.in');reset(f);
  assign(g,'secv2.out');rewrite(g);
  read(f,n,k);
    for i:=1 to n do
    begin
      read(f,v[i]);
      aux[i]:=aux[i-1]+v[i];
    end;
  max:=aux[k]; sum:=aux[k];
  p:=1; poz:=1; u:=k;
    for i:=k+1 to n do
    begin
      sum:=sum+v[i];
        if aux[i]-aux[i-k]>sum then
        begin
          sum:=aux[i]-aux[i-k];
          p:=i-k+1;
        end;
        if sum>max then
        begin
          max:=sum;
          poz:=p; u:=i;
        end;
    end;
  writeln(g,poz,' ',u,' ',max);
  close(g);
end.