procédure puissance(E x:réel, E n: entier, S r:réel)
{
        variable i : entier
                 resultat : réel
                 
         resultat <-- 1
         
        Pour i de 1 à n
        {
                resultat <-- resultat * x
        } 
        
        r <-- resultat
}