Algorithme Jeu_de_l_oie
{
        variable de1, de2, de3, case, nbtour, i : entier
                 premier : booleen
        
        nbtour <-- 0
        case <-- 0
        
        Tant que (case < 100)
        {
                nbtour <-- nbtour +1 
                Afficher("Vous en êtes au tour n°", nbtour, " et vous êtes à la position ", case,".\n")
                
                de1 <-- PartieEntiere(hasard()*6)+1
                de2 <-- PartieEntiere(hasard()*6)+1                
                case <-- case + de1 + de2
                Afficher("Vous venez de tirer ", de1, " et ", de2, " et vous êtes maintenant en position ", case, ".\n")
                
                de3 <-- PartieEntiere(hasard()*6)+1
                
                premier <-- FAUX
                Tant que ((de3 < 5) ET (NON(premier) ET (case != 0))
                {
                        case <-- case - 1
                        Afficher("Vous avez tiré ", de3, " et vous avez donc reculé en ", case, ".\n")
                        
                        // Est ce que case est premier ?
                        i <-- 2
                        Tant que ((case mod i != 0) ET (i*i < case))
                        {
                                i <-- i +1
                        }
                        
                        Si (case mod i != 0) alors
                        {
                                premier <-- VRAI
                        }
                        sinon
                        {
                                de3 <-- PartieEntiere(hasard()*6)+1
                        }
                }
                
                Si (premier) alors
                {
                        case <-- case + 3
                        Affichez("En reculant vous êtes tombé sur une case qui était un nombre premier et vous avancez donc de 3 cases.\n")
                }
        
        }
        Afficher("Gagné !")
}