procédure fibonacci(E n : entier, S terme : entier)
{
        variable Tnmoins1,Tnmoins2, i : entier
        
        Si ((n = 0) ou (n = 1)) alors
        {
                terme <-- 1
        }
        sinon
        {       i <-- 1
                Tnmoins1 <-- 1
                Tnmoins2 <-- 1
                Repeter
                {
                        terme <-- Tnmoins1 + Tnmoins2
                        Tnmoins2 <-- Tnmoins1
                        Tnmoins1 <-- terme 
                        i <-- i +1
                } jusqu'à (i = n)
        }
}

Algorithme Utilisation
{
        variable N, i, t :  entier
                 reponse : caractère
                 
         Afficher("Cet algo vous affiche différentes suite de fibonacci !\n")
         
         Repeter
         {
                Afficher("Veuillez saisir le nombre de termes que vous souhaitez afficher pour la suite de Fibonacci :")
                Saisir(N)
                Pour i de 0 à N-1
                {
                        fibonacci(i,t)
                        Afficher("T",i,"=",t," ; ")
                }
                
                Afficher("Voulez vous une nouvelle suite ? (O/N)"
                Saisir(reponse)
         } jusqu'à (reponse = 'N')
}