bewerking=bewerking1.proc
n=$teller
!if $graad=0
    R=$teller
!else
    R=$graad
!endif
    
!if $R=1
    TELLER1=!randitem 1,2,3,4
    TELLER1=$[$TELLER1*2]
    NOEMER1=!randitem 1,2,3,4
    factor=!randitem 2,4
    NOEMER1=$[$NOEMER1*$factor]
    NOEMER1=$[$NOEMER1 + $TELLER1]
!endif
!if $R=2
    TELLER1=!randitem 1,2,3,4,5,6
    TELLER1=$[$TELLER1*4]
    NOEMER1=!randitem 1,2,3,4,5,6
    factor=!randitem 2,4
    NOEMER1=$[$NOEMER1*$factor]
    NOEMER1=$[$NOEMER1 + $TELLER1]
!endif
!if $R=3
    TELLER1=!randitem 1,2,3,4,5,6,7
    TELLER1=$[$TELLER1*6]
    NOEMER1=!randitem 1,2,3,4,5,6,7
    factor=!randitem 2,4
    NOEMER1=$[$NOEMER1*$factor]
    NOEMER1=$[$NOEMER1 + $TELLER1]
!endif
!if $R>3
    instinker=!randitem 1,2
    TELLER1=!randitem 1,2,3,4,5,6,7,8,9,10
    TELLER1=$[$TELLER1*$instinker]
    NOEMER1=!randitem 1,2,3,4,5,6,7,8,9,10
    factor=!randitem 2,3,4,5,6
    NOEMER1=$[$NOEMER1*$factor]
    NOEMER1=$[$NOEMER1 + $TELLER1]
!endif

G=!exec pari $TELLER1/$NOEMER1 \
printtex($TELLER1/$NOEMER1)
    
GOED$n=!line 1 of $G
GG=!line 2 of $G

!if $taal=nl
    nivo_title=Een breuk vereenvoudigen
    somtekst$n=<p align="left">Vereenvoudig de breuk zo ver als je kunt<br>\
    en vul het antwoord -het liefst- als een breuk in</p>
!else
    nivo_title=Reduce the fraction 
    somtekst$n=<p align="left">Reduce the fraction as far as you can<br>\
    and fill in the answer, preferably as a fraction</p>
!endif


tussen=!replace internal / by , in $(GOED$n)
t2=!item 2 of $tussen
f=$[$NOEMER1/$t2]
opgave$n=\frac{$TELLER1}{$NOEMER1} \,\, = \,\, ?
antwoord$n=\frac{$TELLER1}{$NOEMER1} \rightarrow  \frac{$TELLER1 \div $f}{$NOEMER1 \div $f} \rightarrow $GG 
