program lsdkjf;
var a,i,n,x,y,sum,max,u,p:longint;
   f,g:text;
begin
assign(f,'ssm.in');
assign(g,'ssm.out');
rewrite(g);
reset(f);
readln(f,n);
max:=-1999999999;
for i:=1 to n do
 begin
  read(f,a);
  if (sum<0) then
  begin
   sum:=a;
   u:=i;
  end
  else
   sum:=sum+a;
  if (sum>max) then
  begin
   max:=sum;
   x:=u;
   y:=i;
  end;
 end;
writeln(g,max,' ',x,' ',y);
close(g);
close(f);
end.