!set title=Carré un par un
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22

ansorder=r,r,r,r,r,r
varcnt=8
prevarcnt=7
postvarcnt=0
replycnt=6
choicecnt=0
conditioncnt=0
feedbackcnt=0
format=html

val1=$imagedir
val2=$confparm1
val3=$confparm2
val4=$confparm3
val5=$confparm4

!if $testcondition=yes
 !goto test
!endif
!if $status=waiting
 !exit
!endif

tmp0=!randint 4, 6

val6=$[rint($(tmp0))]
tmp0=!randint 3, 4

val7=$[rint($(tmp0))]
tmp0=!values x for x = $val7 to $val6 + $val7

val8=$(tmp0)
tmp0=!values x^2 for x = $val7 to $val6 + $val7

val9=$(tmp0)
tmp0=!makelist \(x^2) for x = $val7 to $val6 + $val7 - 1

val10=$(tmp0)
tmp0=!makelist r x for x = 1 to $val6

val11=$(tmp0)
tmp0=!replace internal , by ; in $val11

val11=$(tmp0)
oefsteps=$val11 
nextstep=!nosubst $val11 
!readproc oef/steps.proc
replytype1=numeric
replyname1=$(val10[1])
replygood1=$[$(val9[1])]
replytype2=numeric
replyname2=$(val10[2])
replygood2=$[$(val9[2])]
replytype3=numeric
replyname3=$(val10[3])
replygood3=$[$(val9[3])]
replytype4=numeric
replyname4=$(val10[4])
replygood4=$[$(val9[4])]
replytype5=numeric
replyname5=$(val10[5])
replygood5=$[$(val9[5])]
replytype6=numeric
replyname6=$(val10[6])
replygood6=$[$(val9[6])]
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Calculer le carré de $(val8[$m_step]) : 	   <p align="center">  
!read oef/embed.phtml r \step, 5 
$() </p>	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=8
embedcnt=1
