var f,g:text;
    a:array[1..50100]of longint;
    sc,n,k,poz,x,y,i:longint;
    smax:qword;
begin
assign(f,'secv2.in');reset(f);
assign(g,'secv2.out');rewrite(g);
readln(f,n,k);
for i:=1 to n do
    read(f,a[i]);
sc:=a[1];poz:=1;
smax:=a[1];x:=1;y:=1;
for i:=2 to n do
    begin
    if sc<0 then begin
                 sc:=a[i];
                 poz:=i;
                 end
            else sc:=sc+a[i];
    if sc>smax then if i-poz+1>=k then begin
                                       smax:=sc;
                                       x:=poz;
                                       y:=i;
                                       end;
    end;
writeln(g,x,' ',y,' ',smax);
close(f);
close(g);
end.