program ps2;
var   n,k,j,i,p,q,max,a,b,s:integer;
     v:array[1..100]of longint;f,g:text;
begin
     assign(f,'secv2.in');reset(f);
       read(f,n);readln(f,k);q:=k;p:=1;
     for i:=1 to n do read(f,v[i]);
      for i:=1 to n-k do begin
         p:=i+k-1;   repeat
        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;s:=0;end;s:=0;
          until p=n;end;
          assign(g,'secv2.out');rewrite(g);
        writeln(g,a,' ',b,' ',max); close(f);close(g);
        end.