{
    R : Renvoie Vrai si l'année passée en paramètre est bisextile.
    E : année un entier
    S : un booléen en fonction de si l'année est bisextile
}
verifAnneBisextile : une fonction (annee : un entier) -> booléen

{
    R : Renvoie vrai si le mois saisi est bien entre 1 et 12
    E : mois un entier positif
    S : un booléen en fonction de la validité du mois
}
verifMois : une fonction (mois : un entier positif) -> booléen

{
    R : Verifie si le jour saisi est valide en fonction du mois et de l'année
    E : jour, mois 2 entiers positifs, anneeEstBisextile un booléen
    S : un booléen en fonction de la validité du jour
}
verifJour : une fonction (jour : un entier positif, mois : un entier positif, anneeEstBisextile : un booléen) -> booléen

{
    R : Verifie si jour, mois et annee sont valides
    E : jour, mois, annee : 3 entiers positifs
    S : booléen en fonction de si la date est valide
}
verifDate(jour : un entier positif, mois : un entier positif, annee : un entier positif) -> booléen


Lexique : {Principal}
    {Les déclarations de fonctions}

    jourSaisie : un entier positif
    moisSaisie : un entier positif
    anneeSaisie : un entier positif
    dateValide : un booléen
Algorithme : {Principal}
    Début
        Ecrire("Veuillez saisir le jour")
        Lire(jourSaisie)

        Ecrire("Veuillez saisir le mois")
        Lire(moisSaisie)

        Ecrire("Veuillez saisir l'année")
        Lire(anneeSaisie)

        dateValide <- verifDate(jourSaisie, moisSaisie, anneeSaisie)

        Si dateValide
            Alors Ecrire("La date saisie est valide")
            Sinon Ecrire("La date saisie est invalide")
    Fin