var min,max,l,r,s,i,n,k:longint;
    st,v:array[1..50000] of longint;
    f,g:Text;
procedure load;
begin
assign(f,'secv2.in');
reset(f);
readln(f,n,k);
for i:=1 to n do
read(f,v[i]);
close(f);
assign(g,'secv2.out');
rewrite(g);

end;
BEGIN
load;
s:=0;
for i:=1 to n do
begin
s:=s+v[i];
st[i]:=s;
end;
min:=st[1];
max:=st[1];
for i:=1 to n do
if (max<=st[i]) then begin r:=i; max:=st[i]  end;
min:=st[1];
for i:=1 to n do
if (min>st[i]) and (i<r) then begin min:=st[i]; l:=i; end;
l:=l+1;
writeln(g,l,' ',r,' ',st[r]-st[l]);
close(g);
END.