code 34402;
    procedure CHLDECINV2(A, N, AUX); value N; integer N;
    array A, AUX;
    begin 

        CHLDEC2(A, N, AUX);
        if AUX[3] = N then CHLINV2(A, N)
    end CHLDECINV2;
        eop