Exercice (bac pratique): Traitement d'un ensemble de nombres

On se propose de répéter le traitement ci-dessous pour un entier n. 1- Si le nombre est impair alors on le multiplie par 3 et on lui ajoute 1 2- Si le nombre est pair alors on le divise par 2. Il est éventuel que le nombre 1 apparaisse lors des n premières répétitions.
Écrire
un programme Pascal qui permet d’appliquer ce traitement à tous les
entiers compris entre A et B (2 <= A < B <= 50) et d’afficher chaque
entier qui arrive à 1 dans un nombre de répétitions strictement
inférieur à sa valeur.
Exemple : L’entier 10 sera affiché car il arrive à 1 après 6 répétitions (6 < 10)