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