code 34321;
real procedure DETERMBND(A, N, LW, RW, SGNDET);
value N, LW, RW, SGNDET; integer N, LW, RW, SGNDET; array A;
begin integer I, L; real P;
        L:= 1; P:= 1; LW:= LW + RW + 1;
        for I:= 1 step 1 until N do 
        begin P:= A[L] * P; L:= L + LW end;
        DETERMBND:= ABS(P) * SGNDET
    end DETERMBND;
        eop