program suma;
var s,x,y,n,sum,st,i,bestsum,aux,sf:longint;
    bufin,bufout:array[1..1000] of  char;
begin
  assign(input,'ssm.in'); reset(input);
  assign(output,'ssm.out'); rewrite(output);
  settextbuf(input,bufin);
  settextbuf(output,bufout);
  readln(n);
  sum:=0;  bestsum:=-maxlongint;
  for i:=1 to n do
    begin
      read(s);
      if sum<0 then
        begin
          sum:=s;
          aux:=i;
        end
         else
           sum:=sum+s;
      if bestsum<sum then
        begin
          bestsum:=sum;
          st:=aux;
          sf:=i;
        end;

    end;
  writeln(bestsum,' ',st,' ',sf);
  close(input); close(output);
end.