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

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.