program sumamaxima;
type vector=array[1..60000] of integer;
var a:vector;
    f,g:text;
    i,n,k,j,l1,l2:integer;
    s,max:real;
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,a[i]);
s:=0;max:=-30000;l1:=0;l2:=0;
for i:=1 to n do begin
s:=a[i];
for j:=i+1 to n do begin
if (j-i+1>=k)and (s>max)then begin l1:=i;l2:=j-1;max:=s;end;
s:=s+a[j];end;end;
write(g,l1,' ',l2,' ',max:0:0);
close(f);close(g);end.