code 34313;
    real procedure CHLDETERM1(A, N); value N; integer N;
    array A;
    begin integer K, KK; real D;
        D:= 1; KK:= 0;
        for K:= 1 step 1 until N do 
        begin KK:= KK + K; D:= A[KK] * D end;
        CHLDETERM1:= D * D
    end CHLDETERM1;
        eop