bewerking=bewerking3.proc
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
pm=!randitem -1,1,-1,-1,-1
mp=!randitem -1,1,1,1  

TELLER1=$[$R+1]

factor1=!randitem 1,2,3
NOEMER1=$[$TELLER1 + $factor1]

TELLER2=!randitem 2,4
TELLER2=$[$TELLER2*$R]

factor2=!randitem 1,2,3,4,5
NOEMER2=$[2*$factor2]    


TELLER1=$[$mp*$TELLER1]
TELLER2=$[$pm*$TELLER2]


GG=!exec pari ($TELLER1/$NOEMER1)*($TELLER2/$NOEMER2)

!if / notin $GG
    GOED3=$GG
    GOED4=1
    EXTRA=  = $GG
!else
    GG=!replace internal / by , in $GG
    GOED3=!item 1 of $GG
    GOED4=!item 2 of $GG
!endif        
GOED1=$[$TELLER1*$TELLER2]
GOED2=$[$NOEMER1*$NOEMER2]

!if $taal=nl
    nivo_title=twee positieve of negatieve breuken vermenigvuldigen
    somtekst$n=<p align="left">Eerst vermenigvuldig je de volgende twee breuken.<br>\
    Daarna Vereenvoudig je -indien mogelijk-  de breuk.
!else
    nivo_title=Multiplication of two positive or negative fractions
    somtekst$n=<p align="left">First you multiply the two fractions<br>\
    And then, if possible , reduce the answer as far as you can.
!endif
opgave$n=\frac{$TELLER1}{$NOEMER1} \times \frac{$TELLER2}{$NOEMER2} =

antwoord$n=\frac{$TELLER1}{$NOEMER1} \times \frac{$TELLER2}{$NOEMER2} =\
\frac{$TELLER1 \times $TELLER2}{$NOEMER1 \times $NOEMER2} =\
\frac{$[$TELLER1*$TELLER2]}{$[$NOEMER1*$NOEMER2]} = \
\frac{$GOED3}{$GOED4} $EXTRA
