programme MajeurMineur
données
  JourNaiss, MoisNaiss, AnneeNaiss sont entier
  Age est un entier

  Genre est un caractère
  Adjectif, accord sont des chaines de caractères

début
  afficher "Programme de test de majorité"
  afficher "Jean HENRI  v 0.0   sept 2003"

  afficher "Saisissez votre date de naissance (jour, mois, année) : "
  saisir JourNaiss, MoisNaiss, AnneeNaiss

  afficher "Indiquez si vous êtes : une femme ... F"
  afficher "                        un homme .... H"
  saisir Genre

  Age <-- CalculerAge (JourNaiss, MoisNaiss, AnneeNaiss)

  si (Age < 18) alors
    adjectif <-- "mineur"
  sinon
    adjectif <-- "majeur"
  fin si

  si ((Genre = "f") ou (Genre = "F")) alors
    Accord <-- "e"
  sinon
    Accord <-- ""
  fin si

  Afficher "Vous avez ", Age, " an(s) et vous êtes ", Adjectif, Accord
fin