fonction estpremc(N) //utilise la fonction crible pour tester si n est premier local PREM,S; crible(floor(sqrt(N)))->PREM dim(PREM)->S si (N=1) retourne(FAUX) pour K de 1 a S faire si (N mod ,PREM[K])=0) retourne(FAUX); fsi fpour retourne(VRAI) ffonction