var v:array[0..50000]of longint;
    n,k,m,s,u,a,b:int64;
    i,j:longint;
    f:text;
begin
   assign(f,'secv2.in');
   reset(f);
   read(f,n,k);
   v[0]:=0;
   for i:=1 to n do
   begin
   read(f,u);
   v[i]:=v[i-1]+u;
   end;
   m:=250001;
   close(f);
   assign(f,'secv2.out');
   rewrite(f);
   s:=-12500050000;
   for i:=k to n do
   begin
   if v[i-k+1]<m then begin j:=i-k;
                            m:=v[i-k];
                      end;
   if v[i]-m>s then begin a:=i;
                          b:=j;
                          s:=v[i]-m;
                    end;
   end;
   writeln(f,b+1,' ',a,' ',s);
   close(f);
end.