Lexique :
    sommeFRF : un réel
    CONVERTION_FRF_EUR : constante réelle := 6.55957
    sommeEUR : un réel
Algorithme :
    Début
        Ecrire("Saisir la somme en francs")
        Lire(sommeFRF)

        sommeEUR <- sommeFRF / CONVERTION_FRF_EUR

        Ecrire(sommeFRF, " francs français font : ", sommeEUR, "€")
    Fin