var  f,g:text;
a:array[1..50000] of integer;
n,k,i,j,imax,jmax,s,smax,c,c1,q: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,a[i]);
s:=0;
for i:=1 to k do s:=s+a[i];
smax:=s;
i:=1;
j:=k;
imax:=1;
jmax:=k;
c:=0;
c1:=1;


for q:=k+1 to n do begin
   s:=s+a[q];
   c:=c+a[q-k];
   {inc(j); }
   if s-c>s then begin
    s:=s-c;
    i:=q-k+1;
    c1:=i;
    c:=0;
   end;
   if s>smax then begin
      imax:=i;
      jmax:=q;
      smax:=s;
  end;
end;
write(g,imax,' ',jmax,' ',smax);
close(f);
close(g);
end.