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);

if n=k then
        begin
        s:=0;
        for i:=1 to n do s:=s+v[i];
        pp:=1;
        p:=n;
        end
else
begin

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];
end;

assign(g,'secv2.out');
rewrite(G);
writeln(g,pp,' ',p,' ',s);
close(g);
end.