Algorithme Yam
{
        variable d1, d2, d3, d4, d5 : entier
                 points : entier
        
        points <-- 0
        Afficher("Saisissez les dés dans l'ordre croissant : ")
        Saisir(d1,d2,d3,d4,d5)
        
        Si (d1 = d5) alors
        {
                Afficher("Vous avez un Yam")
                points <-- 50
        }
        sinon
        {
                Si ((d1 = d4) ou (d2 = d5)) alors
                {
                        Afficher("Vous avez un carré")
                        points <-- 40
                }
                sinon
                {
                        Si (((d1 = d3) et (d4 = d5)) ou ((d1 = d2) et (d3 = d5))) alors
                        {
                                Afficher("Vous avez un full")
                                points <-- 20
                        }
                        sinon
                        {
                                Si (((d1 = d2) et ((d3=d4) ou (d4 = d5))) ou ((d2 = d3) et (d4 = d5))) alors
                                {
                                        Afficher("Vous avez deux paires")
                                        points <-- 10
                                }
                                sinon
                                {
                                        Si ((d1+1=d2) et (d2+1=d3) et (d3+1=d4) et (d4+1=d5)) alors
                                        {
                                                Afficher("Vous avez une suite")
                                                points <-- 30
                                        }
                                        sinon
                                        {
                                                Afficher("Vous n'avez aucune figure")
                                                points <-- 0
                                        }
                                }
                                
                        }
                        
                }
        }
        
        Afficher("vous avez ", points, " points.\n")
}