var
pp,p,n,k,i:integer;
g,f:text;
ma,s:longint;
su:array[1..50000] of longint;
v:array[1..50000] of integer;

begin
assign(f,'secv2.in');
reset(f);
readln(f,n,k);
for i:=1 to n do
read(f,v[i]);
close(F);
s:=-1000000;

for i:=1 to k do
s:=s+v[i];
ma:=s;
p:=k;
su[k-1]:=s;
for i:=k to n do
begin
su[i]:=v[i]+su[i-1];
if su[i]>ma then begin ma:=su[i]; p:=i; end;
end;
ma:=su[n];
pp:=n;
s:=0;
for i:=n-1 downto 1 do
begin
su[i]:=v[i]+su[i+1];
if su[i]>ma then begin ma:=su[i]; pp:=i; end;
end;
for i:=pp to p do s:=s+v[i];
assign(g,'secv2.out');
rewrite(G);
writeln(g,pp,' ',p,' ',s);
close(g);
end.