var k,n,i,smax,pozs : longint;
    a,nre : array[1..50000] of integer;
    s : array[0..50000] of longint;
    f,g : text;
begin
assign(f,'secv2.in'); reset(f);
assign(g,'secv2.out'); rewrite(g);
read(f,n,k);
for i:=1 to n do
begin
  read(f,a[i]);
  if s[i-1]+a[i]>a[i] then
  begin
  s[i]:=s[i-1]+a[i];
  nre[i]:=nre[i-1]+1;
    if (s[i]>smax) and (nre[i]>=k) then
    begin
    smax:=s[i];
    pozs:=i;
    end;
  end
  else
  begin
  s[i]:=a[i];
  nre[i]:=1;
    if (s[i]>smax) and (nre[i]>=k) then
    begin
    smax:=s[i];
    pozs:=i;
    end;
  end;
end;

writeln(g,pozs-nre[pozs]+1,' ',pozs,' ',smax);
close(g);
end.