var f,g:text;
a:array[1..50000] of integer;
s:array[1..50000] of longint;
n,k,i:longint;
max,s2,s1,i1,j,p,o:longint;
begin
assign(f,'secv2.in');
reset(f);
readln(f,n,k);
for i:=1 to n do
read(f,a[i]);
if n=k then begin
            for i:=1 to n do
               s1:=s1+a[i];
            p:=1;
            o:=n;
else
begin
s[1]:=a[1];
for i:=2 to n do
s[i]:=s[i-1]+a[i];
max:=s[1];
for i:=1 to n do
  if max<=s[i] then begin max:=s[i];
                         o:=i;
                         end;
s1:=0;
for i:=o downto 1 do
    begin
     s1:=s1+a[i];
     s[i]:=s1;
     if (s[i]>=s[p])and (i<>o) then p:=i;
     end;
for i:=1 to p-1 do
    s1:=s1-a[i];
end;
assign(g,'secv2.out');
rewrite(g);
writeln(g,p,' ',o,' ',s1);
close(g);
end.