====================NBR PARFAIT===================
Algorithme parfait
Variables
i,j,SOMME : Entier
Début
Pour i de 1 à 1000 Faire
 SOMME <-- 0
    Pour j de 1 à (i Div 2) Faire
        Si ( (i Mod j) = 0 ) Alors
            SOMME <-- SOMME + j
        FinSi
    FinPour

    Si ( SOMME = i ) Alors
        Ecrire(i,” est un nombre parfait”)
    FinSi
FinPour
Fin.
======================PGCD========================
Algorithme PGCD
Variables
A,B,RES : Entier
Début
Ecrire("donner A = ")
Lire(A)
Ecrire("donner B = ")
Lire(B)
si (A = B ) alors
    Ecrire("Le PGCD est :",A)
sinon si (A = 0) alors
    Ecrire("Le PGCD est :",B)
sinon
Tant que ( (A*B) <> 0 ) faire
Début
    si (A>B) alors
     A <-- A-B
    sinon
     B <-- B-A
    finsi
fin tant que
finsi
    Ecrire("Le PGCD est :",A);
Fin.