algorithme nombre premier

un nombre premier c'est un nombre que seulement divisible par lui-même et 1.
exemple :
5, 7 et 11 sont des nombres premiers.
alors, pour effectuer un algorithme qui tester et afficher si un nombre entier si premier ou non
nous déjà nous savons que un nombre premier divisible seulement par lui-même et 1  et pour la
la condition finale qui sera déterminer est ce que le nombre entrer premier ou non si la variable que stocker la somme des diviseur égale à le nombre + 1 ou non?
l'algorithme
Algo premier
Début
         var a,s,r,i : entier
         lire("veuillez entrer un nombre: ",a)
         s <-- 0
         i <-- 1
         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+1) alors
                          afficher(a,"est un nombre premier")
                          si non
                          afficher(a,"n'est pas un nombre premier")
         fin si
Fin