Répondre :
entrer N
si N<1 ou N>1000 afficher "enter 1 et 1000" FIN
si N<>int(N) afficher "entier SVP" FIN
premier=VRAI
Pour d de 2 à racine(N)
si N/d=INT(N/d) alors premier=FAUX
finPour
si NON(premier) afficher "Non"
afficher " premier"
fin