var a:array[0..50010] of integer;
    b:array[0..50001] of longint;
    n,k,j,w,q,x,min,max:longint;
    f,g:text;
procedure citesc;
 var i,s:longint;
 begin
  readln(f,n,k);
  b[0]:=0;
  for i:=1 to n do begin
   read(f,a[i]);
   b[i]:=b[i-1]+a[i];
  end;
 end;
begin
assign(f,'secv2.in'); reset(f);
assign(g,'secv2.out'); rewrite(g);
citesc;
min:=5000001;
max:=-5000001;
for j:=0 to n-k do begin
 if b[j]<min then begin
  min:=b[j];
  w:=j;
 end;
 if b[j+k]-min>max then begin
  max:=b[j+k]-min;
  x:=w+1; q:=j+k;
 end;
end;
writeln(g,x,' ',q,' ',max);
close(g);
close(f);
end.