ALGORITHME SYRACUSE TI-82, TI-83, TI-83 +

Bonjour, j'ai déjà créé l'algo mais j'aimerais savoir comment faire pour afficher le nombre de valeurs obtenues et en afficher la plus grande.
Merci à tous :)
PS: les "?" signifient "n'est pas égal à" soit l'inverse de "="

ENONCE:
Choisir un nombre entier A ? 0
Si le nombre est pair, on le divise par 2 et on obtient un nouveau nombre.
Si le nombre est impair, on le multiplie par 3, on ajoute 1 au résultat et on obtient un nouveau nombre.
On recommence la procédure avec le nouveau nombre obtenu.
ALGO ( déjà créé par moi-même)
:Disp"A ? 1"
:Prompt A
:While A ? 1
:If Int(A/2)=A/2
:Then
:A/2->A
:Else
:3*A+1->A
:End
:End
:Disp A