var f,g:text;
    st,sf,s:longint;
    i,j,n,k:longint;
    a:array[0..50000]of integer;
    b:array[0..5000,0..5000]of longint;
begin
assign(f,'secv2.in');reset(f);assign(g,'secv2.out');rewrite(g);
read(f,n,k);
for i:=1 to n do
   read(f,a[i]);
for i:=1 to n do
   for j:=i to n do
       begin
          b[i,j]:=b[i,j-1]+a[j];
          if (b[i,j]>s)and(j-i>=k) then begin
                               s:=b[i,j];
                               st:=i; sf:=j; end;
       end;
write(g,st,' ',sf,' ',s);
close(f);close(g);
end.