code 34392;
    procedure CHLDECSOL2(A, N, AUX, B); value N; integer N;
    array A, AUX, B;
    begin 

        CHLDEC2(A, N, AUX);
        if AUX[3] = N then CHLSOL2(A, N, B)
    end CHLDECSOL2;
        eop