program secv2;
var a:array[1..500]of longint;
n,i,j,k,st,fn:longint;
summax,sum:longint;
f,g:text;
begin
  assign(f,'secv2.in'); assign(g,'secv2.out');
  reset(f); rewrite(g);
  read(f,n,k);
  for i:=1 to n do
    read(f,a[i]);
  j:=k-1;
  summax:=-2000000000;
  repeat
    j:=j+1;
    sum:=0;
    for i:=1 to j do
      sum:=sum+a[i];
    if sum>summax then begin st:=1; fn:=j; summax:=sum; end;
    for i:=j+1 to n do
      begin
        sum:=sum+a[i]-a[i-j];
        if sum>summax then begin fn:=i; st:=i-j+1; summax:=sum; end;
      end;
  until j=n;
  writeln(g,st,' ',fn,' ',summax);
  close(f); close(g);
end.