!set n=$teller
bewerking=bewerking2.proc

!for p=1 to $aantal_vragen
	grondgetal=!randint 2,30
	exp1=!randint 10,50
	exp2=!randint 2,8
	!if $negatief=1
	    mp=!randitem -1,-1,-1,1
	    pm=!randitem -1,1
	    exp1=$[$exp1*$mp]
	    exp2=$[$exp2*$pm]    	
	!endif
	GOED=$[$exp1-$exp2]
	som=!htmlmath $grondgetal^$exp1 divide $grondgetal^$exp2
	nummer=!item $p of $telwoorden
	sommen=!append line <td><font size=+1>$som &nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$(ant$p)"></sup></sup></font></td><tr> to $sommen
	SOMMEN=!append line <td><font size=+1>$som &nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="ant$p" value="$GOED"></sup></sup></font></td><tr> to $SOMMEN
        antwoorden=!append line <td><font size=+1>$som &nbsp;<font size=+2>=</font>&nbsp;$grondgetal</font><sup><sup><input size=4  name="" value="$GOED" readonly></sup></sup></font></td><tr> to $antwoorden
	GOED$n=!append item $GOED  to $(GOED$n)
!next p

!if $taal=nl
    nivo_title=Het delen van machten
    hint=Kijk in de Help-pagina
    Nummer=!item $n of $rangwoorden
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave: <br>Schrijf de uitkomst als een macht</td><tr>$SOMMEN</table>	
    !else
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave: <br>Schrijf de uitkomst als een macht</td><tr>$sommen</table>
    !endif
    antwoord$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave: <br>Schrijf de uitkomst als een macht</td><tr>$antwoorden</table>
!else
    nivo_title=Division with powers
    hint=Look into the help-pages
    Nummer=!item $n of $rangwoorden
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer question: <br>Write as a single power</td><tr>$SOMMEN</table>	
    !else
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer question: <br>Write as a single power</td><tr>$sommen</table>
    !endif
    antwoord$n=<table cellpadding='10' cellspacing='5'><td>$Nummer question: <br>Write as a single power</td><tr>$antwoorden</table>
!endif
