procédure puissance(E X: réel, E n: entier, S p : réel)
{
        variable i : entier
        
        p <-- 1
        Si ((X=0) ET (n != 0)) alors
        {
                p <-- 0
        }
        sinon
        {
                Pour i de 1 à n par pas de 1
                        p <-- p * X
        }                
}


Algorithme Utilisation_de_Puissance
{
        variable n1, n2 : entier
                 x, y, p1, p2 : réel
                 
         Afficher("Veuillez saisir le premier nombre à élever à la puissance :")
         Saisir(x)
         Afficher("Veuillez saisir la puissance :")
         Saisir(n1)
         Afficher("Veuillez saisir le second nombre à élever à la puissance :")
         Saisir(y)
         Afficher("Veuillez saisir la puissance :")
         Saisir(n2)
         
         puissance(x,n1,p1)
         puissance(y,n2,p2)
         
         Afficher("Sachez que le produit de ces deux nombres est ", p1*p2,"\n")
}