var a:array[0..50000]of longint;
    buf:array[1..1 shl 15]of char;
    n,k,i,t,st,dr,sum,min:longint;

begin
  assign(input,'secv2.in'); reset(input); settextbuf(input,buf);
  readln(n,k);
  for i:=1 to n do begin read(t); a[i]:=t+a[i-1]; end;
  st:=1; dr:=k; sum:=a[k]; min:=0;
  for i:=k+1 to n do
    begin
      if a[i-k]<a[min] then min:=i-k;
      if sum<a[i]-a[min] then begin st:=min+1; dr:=i; sum:=a[dr]-a[st-1] end;
    end;
  sum:=a[dr]-a[st-1];
  assign(output,'secv2.out'); rewrite(output);
  writeln(st,' ',dr,' ',sum);
  close(output);
end.