var f:text;
    a:array[1..6000003]of longint;
    n,nr,i,max,sum,pi,ps,pim,psm:longint;
begin
assign(f,'ssm.in');
reset(f);
readln(f,n);
read(f,nr);
pi:=1;ps:=1;sum:=nr;max:=nr;
pim:=1;psm:=1;a[1]:=nr;
for i:=2 to n do
 begin
  read(f,nr);
  a[i]:=nr;
  if sum+nr>nr then
   begin
    inc(sum,nr);
    inc(ps)
   end
                 else
   begin
    sum:=nr;
    pi:=i;ps:=i;
   end;
  if sum>max then
   begin
    max:=sum;
    pim:=pi;
    psm:=ps
   end;
 end;
close(f);
assign(f,'ssm.out');
rewrite(f);
write(f,max,' ',pim,' ',psm);
close(f);
end.