var f,f2:text;
    i,n:longint;
    a,bestsum,sum,first,last,idx:longint;
begin
assign(f,'ssm.in');
assign(f2,'ssm.out');
reset(f);
readln(f,n);
bestsum:=-1 * maxlongint;
sum:=0;
for i:=1 to n do
 begin
  read(f,a);
  if (sum<0) then
   begin
    sum:=a;
    idx:=i;
   end
  else sum:=sum+a;
  if (bestSum < sum) then
   begin
    bestsum:=sum;
    first:=idx;
    last:=i;
   end;
 end;
close(f);
rewrite(f2);
writeln(f2,bestsum,' ',first,' ',last);
close(f2);
end.