program mire;
var f,g:text;
   n,k,i:longint;
   x,sum,bestsum,beg,en,ind:int64;
begin
 assign(f,'secv2.in'); reset(f);
 assign(g,'secv2.out'); rewrite(g);
   readln(f,n,k);
   sum:=0;
   bestsum:=0;
   {for i:=1 to k do
     begin
       read(f,x);
       inc(bestsum,x);
     end;
     reset(f);
     readln(f,n,k);}
   for i:=1 to n do
     begin
       read(f,x);
       if sum<0 then
         begin
            sum:=x;
            ind:=i;
         end
       else
        sum:=sum+x;
        if sum>bestsum then
         if i-ind+1>=k then
        begin
             bestsum:=sum;
             beg:=ind;
             en:=i;
        end;

     end;
     writeln(g,beg,' ',en,' ',bestsum);
 close(f);
 close(g);
end.