"CODE" 34294;
"REAL" "PROCEDURE" DETERMSYM2(DETAUX,N,AUX);
"VALUE" N;"INTEGER" N;
"ARRAY" DETAUX;"INTEGER" "ARRAY" AUX;
"BEGIN" "INTEGER" I;"REAL" DET;
        "IF" AUX[5]>0 "THEN" DET:=0 "ELSE"
        "BEGIN" DET:=1;
                "FOR" I:=1 "STEP" 1 "UNTIL" N "DO" DET:=DET*DETAUX[I]
        "END";
        DETERMSYM2:=DET
"END" DETERMSYM2;
        "EOP"