var a:array[1..50000] of integer;
    n,i,k,sum,max,st,dr:longint;


begin
assign(input,'secv2.in'); reset(input);
assign(output,'secv2.out');rewrite(output);
readln(n,k);
for i:=1 to n do read(a[i]);

sum:=0; max:=a[k]; dr:=k;

for i:=k to n do
begin
	inc(sum,a[i]);
	if sum>max then
	begin
		max:=sum;
		dr:=i;
	end;
end;

sum:=0; max:=a[dr-k+1]; st:=dr-k+1;
for i:=dr-k+1 downto 1 do
begin
	inc(sum,a[i]);
	if sum>max then
	begin
		max:=sum;
		st:=i;
	end;
end;

sum:=0;
for i:=st to dr do inc(sum,a[i]);

writeln(st,' ',dr,' ',sum);
close(input); close(output);
end.