algorithme nombre parfait

avant de créer l'algorithme qui permet de tester et afficher est ce que un nombre entré si un nombre parfait ou non, if faut d'abord savoir c'est quoi un nombre parfait?
un nombre parfait c'est nombre qui égale la somme de leur diviseurs.
par exemple 6 est parfait, car leur diviseurs sont 1, 2 et 3 --> 1+2+3=6
l'algorithme:
Algo nombre parfait
Début
         var a,r,s,i : entier
         lire("veuillez entrer un nombre: ",a)
         i <-- 1
         s <-- 0
         répéter
         r <-- a mod i
         si (r=0) alors
         s <-- s+i
         fin si
         i <-- i+1
         jusqu’à (i-1<a)
        si (s=a) alors
                            afficher(a,"est parfait")
                     si non
                           afficher(a,"n'est pas parfait")
Fin