Algorithme : Lit un entier et indique s'il est premier.

Début
    Variable n, i : Entier
    Lire(n)
    Pour i allant de 2 à n/2:
        Si n Modulo i = 0:
            Ecrire("Non premier")
            Retourner
        FinSi
    FinPour
    Ecrire("Premier")
Fin