Calculette casio graph35+

[lulu16]

bonjour

j'ai un algorithme a mettre dans ma calculette et je n'y arrive pas
voici l'algorithme :
algorithme d'euclide

entrée: saisir D (le plus grand)
saisir d (le plus petit)

traitement: r prend comme valeur d
tant que r est différent de 0 faire:
q prend comme valeur int(D/d)
r prend comme valeur D-q*d
D prend comme valeur d
d prend comme valeur r

sortie: afficher "le PGCD vaut: D"

merci par avance de m'aider a traduire cet algorithme pour pouvoir le rentrer dans ma calculette