const nmax=30000;
var v:array[1..nmax] of -25000..25000;
i,n,k,j,l,p,incp,sf:0..30000;
s,max:longint;  f,g:text;
begin
assign(f,'secv2.in');
assign(g,'secv2.out');
reset(f);
rewrite(g);
readln(f,n,k);
for i:=1 to n do
read(f,v[i]);
 max:=v[1];    s:=v[1];   l:=1;     p:=1;
for i:= 2 to n do begin
if s+v[i]>=max then begin s:=s+v[i] ; l:=l+1;  end
else begin
   s:=v[i];
   p:=i; l:=0;
   end;
if l>=k then begin
 incp:=p;
 sf:=i;
 max:=s;
 end;
 end;
 write(g, incp, ' ',sf, ' ', max);
 close(f);
 close(g);
 end.