program secv2;
var x,s,inc,sf,smax,i,pinc,n,k:integer;
    f:text;
    begin
    assign(f,'secv2.in'); reset(f);
    readln(f,n,k);
        pinc:=1; s:=0;
        smax:=-maxint;
    for i:= 1 to n do
    begin
    read(f,x);
    if (s+x<x)and(i-pinc>=k) then
            begin  s:=x;pinc:=i; end
            else s:=s+x;
            if i-pinc+1>=k then
             if s>smax then
                              begin
                                   smax:=s;
                                   inc:=pinc;
                                   sf:=i;
                              end;
    end;
   close(f);
   assign(f,'secv2.out'); rewrite(f);
   writeln(f,inc,' ',sf,' ',smax);
   close(f);
   end.