Créer un algorithme

Sujet du devoir

Bonjour à tous, Je dois rendre ce dm de maths mercredi et je n'arrive pas à faire fonctionner cet algorithme sur ma calculatrice, une TI 83+

2. On considère l'algorithme suivant : 

A prend la valeur 1 

B prend la valeur 2

Tant que (B-A)>0.01

M prend la valeur (A+B)/2 

Si M^2 - 1 < racine carré de M

Alors A prend la valeur M

Sinon B prend la valeur M

FinSi

FinTantque

Afficher A,B

Où j'en suis dans mon devoir

J'ai rentré ce programme mais il ne fonctionne pas, je ne trouve pas où sont les erreurs :

Prompt A

Prompt B

1->A

2->B

While (B-A)>0.01

Prompt M

(A+B)/2->M

If M^2 -1 < racine carré de M

Then 

A->M

Elese 

B->M

End

Disp A

Disp B.

Voilà, ma calculatrice me donne toujours comme résultat 1 et 2.. Si quelqu'un peut m'éclairer je lui en serais très reconnaissante! :)