Algorithme Calcul_Age
{
        variable age,an_naissance : entier
                 prenom : chaine de caractères
                 
        constante entier an_actuel <-- 2013
        
        Afficher("Quel est votre prénom ? ")
        Saisir(prenom)
        
        Afficher(prenom,", quelle est votre année de naissance ?")
        Saisir(an_naissance)
        
        age <-- an_actuel - an_naissance
        
        Afficher(prenom, ", vous avez ",age," ans.\n")
}