var f,g:text;
    n,i,k,smax,s,j,imax,jmax,poz:longint;
    a,b:array[0..600]of longint;
begin
assign(f,'ssm.in');reset(f);
assign(g,'ssm.out');rewrite(g);
readln(f,n);
readln(f,k);
poz:=1;
smax:=-2000000;
b[0]:=-5000000;
for i:=1 to n do
    begin
    read(f,a[i]);
    if b[i-1]>=0 then begin
                      if (b[i-1]>smax) and (i-1-i>=k) then begin
                             smax:=b[i-1];
                             imax:=poz;
                             jmax:=i-1;
                             end;
                      b[i]:=b[i-1]+a[i];
                      end
    else begin
         if (b[i-1]>smax) and (i-1-i>=k)then begin
                             smax:=b[i-1];
                             imax:=poz;
                             jmax:=i-1;
                             end;
         b[i]:=a[i];
         poz:=i;
         end;
    end;
if (b[n]>smax) and (i-1-i>=k)then begin
                             smax:=b[n];
                             imax:=poz;
                             jmax:=n;
                             end;
writeln(g,imax,' ',jmax,' ',smax);
close(g);
end.