code 34331;
real procedure CHLDETERMBND(A, N, W); value N, W; integer N,W;
array A;
begin integer J, KK, W1; real P;
        W1:= W + 1; KK:= - W; P:= 1;
        for J:= 1 step 1 until N do 
        begin KK:= KK + W1; P:= A[KK] * P end;
        CHLDETERMBND:= P * P
    end CHLDETERMBND;
        eop