{ Test si une annee est bissextile    }

{ version 1                           }

booleen fonction estBissextile(-> entier annee)
  booleen res
  si annee modulo 400 == 0 alors
    res <- vrai
    sinon
    si annee modulo 100 == 0 alors
      res <- faux
      sinon
      si annee modulo 4 == 0 alors
        res <- vrai
        sinon
        res <- faux
      fsi
    fsi
  fsi
  retourner res
fin fonction

{ version 2                           }

booleen fonction estBissextile(-> entier annee)
  booleen res
  si ( annee modulo 400 == 0 ) ou 
     ( ( annee modulo 100 <> 0 ) et ( annee modulo 4 == 0 ) ) alors
        res <- vrai
        sinon
        res <- faux
  fsi
  retourner res
fin fonction