code 34333;
procedure CHLDECSOLBND(A, N, W, AUX, B); value N, W;
integer N, W; array A, AUX, B;
begin 
        CHLDECBND(A, N, W, AUX);
        if AUX[3] = N then CHLSOLBND(A, N, W, B)
    end CHLDECSOLBND;
        eop