program secventa2;
   var i,p1,p,a,k,n,d:word;v:array[1..32000]of integer;f,g:text;s,max:longint;
   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,v[i]);i:=0;
   while k<n do begin
   inc(i);
   s:=v[i];a:=i;d:=0;
   repeat
   inc(a);inc(d);
   s:=s+v[a];
   until d=k;
   if s>max then begin max:=s;p:=i;p1:=a;end;if i=n then begin i:=0;inc(k);
   end;end;
   write(g,p,' ',p1,' ',max);
   close(f);
   close(g);
   end.