Program segv2;
 var v,s:array [1..50000] of integer;
     sol:array [1..2,1..50000] of longint;
     a,b,posmin,i,n,k,j,min,max,posmax,l:longint;
     fi,fo:text;
begin
assign(fi,'secv2.in');
 assign(fo,'secv2.out');
reset(fi);
 rewrite(fo);
readln(fi,n,k);
min:=100000;
max:=-100000;
l:=1;
for i:=1 to n do
              read(fi,v[i]);
 for i:=1 to n do
  for j:=1 to i do
     s[i]:=s[i]+v[j];
 for b:=k to n do begin
  for a:=1 to b do
   if s[a]<min then begin
                     min:=s[a];
                     posmin:=a;
                     end;
   sol[1,l]:=s[b]-min;
   sol[2,l]:=posmin;
   if sol[1,l]>max then begin
                         max:=sol[1,l];
                         posmax:=l;
                         end;
   inc(l);
   end;
  write(fo,sol[2,posmax]+1,' ',posmax+k-1,' ',max);
  close(fo);
end.