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 êtes au tour n°",nbtour, " et à 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 donc 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("Comme vous venez de tirer ", de3, " vous reculez et vous êtes donc maintenant en position ",case,".\n")
                        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
                        Afficher("Comme vous êtes tombé en reculant sur une case qui est un nombre premier, vous avancez de 3 cases.\n")
                }
        }
        
        Afficher("Gagné.\n")
        
}