n=$teller
bewerking=bewerking3.proc
sommen=$empty
SOMMEN=$empty
!if $graad=0
    R=$teller
!else
    R=$graad
!endif

!if $R=1
    !for p=1 to $aantal_vragen
	!if $negatief=0
	    exp1=!randint 2,100
	!else
	    exp1=!randint -2,-100
	!endif
	grondgetal=!randint 10,100
	GOED=2*$grondgetal^$exp1
	G=!htmlmath $GOED
	som=!htmlmath $grondgetal^$exp1 + $grondgetal^$exp1
	nummer=!item $p of $telwoorden
	sommen=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p"></textarea></td><tr> to $sommen
	SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p">$GOED</textarea></td><tr> to $SOMMEN
	antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font>$G</td><tr> to $antwoorden
	GOED$n=!append item $GOED  to $(GOED$n)
    !next p
!endif

!if $R=2
    !for p=1 to $aantal_vragen
	!if $negatief=0
	    exp1=!randint 2,100
	!else
	    exp1=!randint -2,-100
	!endif
	grondgetal=!randint 10,100
	a=!randitem 2,3,4,5,6,7,8,9
	b=!randitem 2,3,4,5,6,7,8,9
	GOED=$[$a + $b]*$grondgetal^$exp1
	G=!htmlmath $GOED
	som=!htmlmath $a times $grondgetal^$exp1 + $b times $grondgetal^$exp1
	nummer=!item $p of $telwoorden
	sommen=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p"></textarea></td><tr> to $sommen
	SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p">$GOED</textarea></td><tr> to $SOMMEN
	antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font>$G</td><tr> to $antwoorden
	GOED$n=!append item $GOED  to $(GOED$n)
    !next p
!endif

!if $R>2
    !for p=1 to $aantal_vragen
	!if $negatief=0
	    exp1=!randint 2,100
	!else
	    exp1=!randint -2,-100
	!endif
	grondgetal=!randint 10,100
	a=!randitem 2,3,4,5,6,7,8,9,10,11,12,13
	b=!randitem 2,3,4,5,6,7,8,9,10,11,12,13
	c=!randitem 2,3,4,5,6,7,8,9,10,11,12,13
	GOED=$[$a + $b + $c]*$grondgetal^$exp1
	G=!htmlmath $GOED
	som=!htmlmath $a times $grondgetal^$exp1 + $b times $grondgetal^$exp1 + $c times $grondgetal^$exp1
	nummer=!item $p of $telwoorden
	sommen=!append line  <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p"></textarea></td><tr> to $sommen
	SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p">$GOED</textarea></td><tr> to $SOMMEN
	antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font>$G</td><tr> to $antwoorden
	GOED$n=!append item $GOED  to $(GOED$n)
    !next p
!endif


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