RACINE CARRE

saluttout le monde est ce quelqu'un peut m'aider à trover la resolution de cette exercice en algorithme seulement .
l'exercice est le suivant :
écrire un algorithme qui permet de calculer la racine carrée d'un réel positif A grace à la formule récurrente Xn+1 =1/2(Xn+A/Xn).les calculs commenceront avec 1 comme valeur initial de X0 ET stopperont quand la valeur absolue de la différence entre 2 derniéres sera infirieur à 0.001 c-à-d │ Xn+1 - Xn│<0.001.
merci d'avance à pour votre aide.