var v:array[1..50000] of integer;
    n,k,i,j,p,s,max,pmax,p1,p2:longint;
    f:text;

procedure citire;
begin
assign(f,'secv2.in');reset(f);
readln(f,n,k);
for i:=1 to n do read(f,v[i]);
close(f);
end;

procedure det;
begin
p:=k;
while(p<=n)and(pmax<=n-p)do begin
     i:=1;
     while(i<=n)do begin
          s:=0;
          for j:=i to i+p-1 do
              s:=s+v[j];
          if(s>max)and(p>pmax) then
            begin
            p1:=i;p2:=i+p-1;
            max:=s;
            pmax:=p;
            end;
          i:=i+1;
          end;
     p:=p+1;
     end;
end;

begin
citire;
det;
assign(f,'secv2.out');rewrite(f);
writeln(f,p1,' ',p2,' ',max);
close(f);
end.