code 34312;
    real procedure CHLDETERM2(A, N); value N; integer N;
    array A;
    begin integer K; real D;
        D:= 1;
        for K:= 1 step 1 until N do D:= A[K,K] * D;
        CHLDETERM2:= D * D
    end CHLDETERM2;
        eop