!set titb=Un exemple simple
!set keyw=
!set datm=20060619
!set prev=
!set next=
!set upbl=main
!set dat1=19000101
!set dat2=24000101

!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif

!exit

:content
Voici le fichier d'un exercice qui demande de calculer le carré d'un entier choisi aléatoirement et met un avertissement si la réponse donnée est négative  &#58;  
<pre class="fichier">
Avant &#58; 
<div class="variable">
$m_title$m_lbrac Le carré d'un entier $m_rbrac
$m_computeanswer$m_lbrac no $m_rbrac 
$m_integer$m_lbrac n = $m_randint(-50<tt class="w">..</tt>50) $m_rbrac 
$m_integer$m_lbrac N = \n^2 $m_rbrac 
</div>
Pendant &#58;
<div class="statement">
$m_statement$m_lbrac Calculer le carré de \n. $m_rbrac </div> 
Après &#58;
<div class="variable">
$m_answer$m_lbrac Carré de \n $m_rbrac$m_lbrac \N $m_rbrac$m_lbrac <tt class="type">type=numeric</tt> $m_rbrac 
$m_feedback$m_lbrac <tt class="reply">\reply1</tt> < 0 $m_rbrac$m_lbrac Le carré d'un entier est toujours positif. $m_rbrac </div>
</pre>
