program secv;
var a:array[1..50000] of integer;
    sum:array[1..100000]of longint;
    n,i,j,k,aux,s,max,poz1,poz2:longint;
begin
assign(input,'secv2.in');
reset(input);
readln(input,n,k);
for i:=1 to n do read(input,a[i]);
close(input);
assign(output,'secv2.out');
rewrite(output);
aux:=1;  max:=0;
for i:=1 to n-1 do
begin
s:=a[i];
for j:=i+1 to n do
begin
s:=s+a[j];
sum[aux]:=sum[aux]+s;
if(sum[aux]>max)and(j-i+1>=k)then begin
                                  poz1:=i;
                                  poz2:=j;
                                  max:=sum[aux];
                                  end;
inc(aux);
end;
end;
write(output,poz1,' ',poz2,' ');
s:=0;
for i:=poz1 to poz2 do s:=s+a[i];
writeln(output,s);
close(output);
end.