programme_aleatoire1() :=
{
local nbalea,res; // les variables utilisées
nbalea := alea(3) // alea(3) renvoie un entier naturel aléatoire compris entre 0 et 3 exclu donc 0 ou 1 ou 2, chacun ayant la même probabilité
if (nbalea = = 0 ){res :="pile"}; // si le nombre aleatoire nbalea est 0 alors on met le môt pile dans la mémoire appelée res
if (nbalea = = 1) {res :="face"}; // si le nombre aleatoire nbalea est 1 alors on met le môt face dans la mémoire appelée res
if (nbalea = = 2) {res :="tranche"}; // si le nombre aleatoire nbalea est 2 alors on met le môt tranche dans la mémoire appelée res
afficher(res) ; // on affiche le contenu de la mémoire appelée res
}