procedure terme_fibonacci(E n:entier, S terme:entier)
{
        variable i, termea, termep : entier

        termea <-- 1
        termep <-- 1

        Si (n = 0) OU (n=1) alors
                terme <-- 1
        sinon
        {
                Pour i de 2 à n
                {
                        terme <-- termea + termep
                        termep <-- termea
                        termea <-- terme
                }
        }
}