Algorithme Syracuse
{
        variable i, Y, N, Somme : entier
        
        Afficher("On va calculer la somme des N premiers termes de la suite de Syracuse.\n")
        Afficher("Saisir le premier terme de la suite :")
        Saisir(Y)
        Afficher("Saisir le N désiré : ")
        Saisir(N)
        
        Somme <-- Y
        
        Pour i de 1 à N-1
        {
                Si (Y mod 2 = 0) alors
                        Y = Y / 2
                sinon
                        Y = 3 * Y + 1
                        
                Somme <-- Somme + Y
        }
        
        Afficher("La somme des ", N, " premiers termes de la suite de Syracuse est ", Somme, ".\n")        
}