program secvente;
type vector = array [1..50000] of integer;
var v:vector;
    i,j,k,n:integer;
    x,y,max,ma:longint;
    fin,fout:text;
{*---------------------------*}
begin
  assign(fin,'secv2.in');
  assign(fout,'secv2.out');
  reset(fin);
  rewrite(fout);
  readln(fin,n,k);
  for i:=1 to n do
    read(fin,v[i]);
  max:=-maxlongint;
  for i:=1 to n - 1 do
    begin
      ma:=0;
      for j:=i to n do
        begin
          ma:=ma+v[j];
          if (ma > max) and (j-i>=k) then
            begin
              x:=i;
              y:=j;
              max:=ma;
            end;
        end;
    end;
  writeln(fout,x,' ',y,' ',max);
  close(fout);
end.