var f,g:text;
    n,k,i,j,s,max,i1,sf:longint;
    x:array[1..100] of integer;
    ok:boolean;
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,x[i]);
i1:=1;
sf:=k;
max:=0;
for i:=1 to n-k do  begin
          s:=0;
  for j:=i to i+k do s:=s+x[j];
  j:=j+1;
  repeat
  ok:=false;
  while (x[j]>0) and (j<n) do begin
            s:=s+x[j];
            inc(j);
            ok:=true;
            end;
  while ((x[j]+x[j+1])>0) and (j<n) do begin
           s:=s+x[j]+x[j+1];
           j:=j+2;
           ok:=true;
           end;
        if x[j]+x[j+1]<0 then j:=j-1;
  until not ok;
       if s>max then begin
            max:=s;
            i1:=i;
            sf:=j-1;
            end;
     end;
writeln(g,i1,sf,s);
close(f);
close(g);
end.