{
    R : Verifie si l'année passée en paramètre est bisextile
    E : annee un entier correspondant à l'année
    S : un booléen correspondant à si l'année est bisextile ou non
}
estBisextile : une fonction (annee : un entier) -> booléen
Lexique : {Local à estBisextile}
    bisextile : un booléen
Algorithme : {Local à estBisextile}
    Début
        Si (annee reste 4 = 0)
            Alors Si (annee reste 4000 /= 0) ET (annee reste 400 = 0)
                Alors bisextile <- Faux
                Sinon bisextile <- Vrai
            Sinon bisextile <- Faux
        
        Retourner bisextile
    Fin

Lexique : {Principal}
    estBisextile : une fonction (annee : un entier) -> booléen
    annee : un entier
    anneeEstBisextile : un booléen
Algortihme : {Principal}
    Début
        Ecrire("Saisir une année")
        Lire(annee)

        anneeEstBisextile <- estBisextile(annee)

        Si anneeEstBisextile
            Alors Ecrire("L'année saisie est bisexile")
            Sinon Ecrire("L'année saisie n'est pas bisextile")
    Fin