Aide programmation

Bonjour, j'ai essayé de créer un programme pour cet exercice:

Pour l'instant j'ai seulement réussi à faire ça:
Define algo(a2)=
Prgm
a:=a2
n:=0
b:=1
disp "b=",b
EndPrgm
J'arrive pas à introduire "tant que b a faire augmenter n de 1 et b prend la valeur 4/3 de b"; j'ai essayé avec l'expression "If....Then....Esle...EndIf" mais je sais pas du tout comment l'écrire, à chaque fois ça me fait "syntaxe error".

Pour l'instant j'ai seulement réussi à faire ça:
Define algo(a2)=
Prgm
a:=a2
n:=0
b:=1
disp "b=",b
EndPrgm
J'arrive pas à introduire "tant que b a faire augmenter n de 1 et b prend la valeur 4/3 de b"; j'ai essayé avec l'expression "If....Then....Esle...EndIf" mais je sais pas du tout comment l'écrire, à chaque fois ça me fait "syntaxe error".