code 34303;
    real procedure DETERM(A, N, SIGN); value N, SIGN;
    integer N, SIGN; array A;
    begin integer I; real DET;
        DET:= 1;
        for I:= 1 step 1 until N do DET:= A[I, I] * DET;
        DETERM:= SIGN * ABS(DET)
    end DETERM;
        eop