"CODE" 34293;
"PROCEDURE" DECSOLSYM2(A,N,B,TOL,AUX);
"VALUE" N;"INTEGER" N;"REAL" TOL;
"ARRAY" A,B;"INTEGER" "ARRAY" AUX;
"BEGIN" "REAL" "ARRAY" DETAUX[1:N];"INTEGER" "ARRAY" P[1:N];
        DECSYM2(A,N,TOL,AUX,P,DETAUX);
        "IF" AUX[5]=0 "THEN" SOLSYM2(A,N,B,P,DETAUX)
"END" DECSOLSYM2;
        "EOP"