var b,a:array[0..50000] of int64;
x,p,n,k,i,j:longint;
max,min:int64;
f,g:text;
begin
assign(f,'secv2.in');
assign(g,'secv2.out');
reset(f);
rewrite(g);
read(f,n,k);
min:=0;
max:=-1250000001;
for i:=1 to n do begin
	read(f,x);
   a[i]:=a[i-1]+x;
   if a[i]<a[min] then begin
   	min:=i;
      end;
   b[i]:=min;
   end;
for i:=k to n do
	if max<a[i]-a[b[i-k]] then begin
		max:=a[i]-a[b[i-k]];
      p:=i;
      end;
max:=p;		
writeln(g,b[max-k]+1,' ',max,' ',a[max]-a[b[max-k]]);
close(f);
close(g);
end.