bewerking=bewerking3.proc
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
TELLER1=$[$R+1]

factor1=!randitem 2,3,4
NOEMER1=$[2*$factor1]

factor2=!randitem 1,2,3,4,5
TELLER2=$[$R + $factor2]

factor3=!randitem 1,2,3,4,5,6,7,8,9,10
NOEMER2=$[$TELLER2 + $factor3]    


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 breuken vermenigvuldigen.
    somtekst$n=<p align="left">Eerst vermenigvuldig je de volgende twee breuken.<br>En dan vereenvoudig zo ver als je kan.<br>
!else
    nivo_title=Multiplication of two positive fractions.
    somtekst$n=<p align="left">First multiply the two fractions<br>and then reduce the result as far as you can.<br>
!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
