code 35083;
    real procedure JFRAC(N,A,B);
    value N;integer N;array A,B;
    begin real D;integer I;
        D:=0;
        for I:=N step -1 until 1 do D:=A[I]/(B[I]+D);
        JFRAC:=D+B[0]
    end JFRAC;
        eop