var fi,fo:text;
    i,j,min,max,n,k,vl:longint;
    indi,indj:word;
    s:array[0..50002] of longint;

begin
 assign(fi,'secv2.in'); reset(fi);
 assign(fo,'secv2.out'); rewrite(fo);
 readln(fi,n,k);
 for i:=1 to n do
  begin
   read(fi,vl);
   s[i]:=s[i-1]+vl;
  end;
 max:=-maxlongint;
 for i:=k to n do
  begin
   min:=maxlongint;
   for j:=0 to i-k do
    if s[j]<min then
     begin
      min:=s[j];
      indj:=j+1;
     end;


   if s[i]-min>max then
    begin
     indi:=i;
     max:=s[i]-min;
    end;
  end;
writeln(fo,indj,' ',indi,' ',max);
close(fo);
end.