/* Calcul de Fib(n) par methode recursive       */
/*  - Fib(0) = 0                                */
/*  - Fib(1) = 1                                */
/*  - Fib(n) = Fib(n-1)+Fib(n-2)                */

entier fonction fib(n)
  Données
    n : entier
  Locales
    res : entier
  dans le cas de n
    0 :
      res <- 0
    1 :
      res <- 1
    autres cas :
      res <- fib(n-1)+fib(n-2)
  fcas
  retourner res
fin action