var n, i, x, sum, sump:longint;
    p1, p2, pp1, pp2:longint;
    pr:boolean;
    f:text;

begin
assign (f, 'ssm.in'); reset (f);

readln (f, n);
for i := 1 to n do
  begin
  read (f, x);
  sump := sump+x;
  if sump<0 then
    begin
    sump:=0;
    pp1:=i+1;
    end
            else
    begin
    if sump >= sum then
      begin
      sum := sump;
      p1:=pp1;
      p2:=i;
      end;
    end;
  end;
close (f);

assign (f, 'ssm.out'); rewrite (f);
write (f, sum, ' ', p1, ' ', p2);
close (f);
end.