ajout Pascal