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