Simulation de la loi binomiale - CASIO

Ce programme prend une valeur fixe pour $n$ et $p$ et simule $n$ fois l'événement à deux issues, pour finalement afficher le nombre de succès

$n,p$ sont fixés à $n=20$ et $p=0,25$ : l'utilisateur du programme peut modifier ces valeurs.
$k$ une variable aléatoire : un réel dans $[0,1]$.
Si $k < p$ (probabilité $p$), on considère que l'événement produit un succès. Si $k > p$ (probabilité $1-p$) on considère que l'événement produit un échec.
$s$ sera la somme des succès.

|$n=20$ et $p=0,25$
|$s=0$
|pour $i$ allant de $1$ à $n$
|on tire au hasard un réel $k$ dans $[0,1]$
|si $k$ alors $s=s+1$ #cela correspond au cas "succès"
|$s=s+k$
|afficher $s$

PROGRAM:

:20→N:0.25→P
:0→S
:For 1 → I to N
:Ran#→K
:If K<p
:Then S+1→S
:IfEnd
:Next
:S