salut à tous s'il vous j'ai un problème avec les algorithmes et particulièrement quant il s'agit de dire ce qu'il fait j'espère vraiment que vous allez m'aider j'ai un exemple d'algorithme et merci d'avance

var n, p, r :entier
Début
Lire (n)
  p<---1 (on affecte 1 à p )
  Tant que (p<=n) faire
       p<---p*2
   fintantque
   p<---p div 2
   tant que (p>0) faire
       si (n>= p) alors
           r<---1
           n<---n - p
       sinon
           r<---0
        finsi
        Ecrire ( r ); p<--- p div 2
   fintantque
Fin