program ps2;
var   k,j,i,p,a,b,s,max,n:longint;
    v:array[1..50000]of longint;f,g:text;
begin
     assign(f,'secv2.in');reset(f);
     assign(g,'secv2.out');rewrite(g);
       read(f,n);readln(f,k);max:=-maxint;
     for i:=1 to n do read(f,v[i]);
      for i:=1 to n-k do begin
         p:=i+k;
         while p<=n do begin
        for j:=i to p do
          s:=s+v[j];
             p:=P+1;
         if s>max then begin
         max:=s;a:=i;b:=p-1;end;s:=0;
          end;end;
 
        write(g,a,' ',b,' ',max); close(f);close(g);
        end.