const infile='secv2.in';outfile='secv2.out';
var   a,sum1,sum2:array[0..1000] of longint;
      i,j,n,k,smax,poz,poz1:longint;
begin
assign(input,infile);reset(input);
readln(input,n,k); read(input,a[1]); sum1[1]:=a[1];
for i:=2 to k do begin
    read(input,a[i]);
    sum1[i]:=sum1[i-1]+a[i];
    end;
smax:=sum1[i];
for i:=k+1 to n do begin
    read(input,a[i]);
    sum1[i]:=sum1[i-1]+a[i];
    if sum1[i]>smax then begin
       smax:=sum1[i];
       poz:=i;
       end;
    end;
close(input);
poz1:=poz-1;
sum2[poz]:=a[poz];
for i:=poz-1 downto  1 do begin
    sum2[i]:=sum2[i+1]+a[i];
    if (i<poz-k+1)and(sum2[i]>smax) then begin
       smax:=sum2[i];
       poz1:=i;
       end;
    end;
if n=k then begin poz1:=1; poz:=k;end;
assign(output,outfile);rewrite(output);
write(output,poz1,' ',poz,' ',smax);
close(output);
end.