Exercice (bac pratique): Somme des chiffres est formé d'un seul chiffre?

On veut écrire un programme en Pascal permettant d’afficher tous les
entiers naturels formés de quatre chiffres dont la somme donnera un
entier d’un seul chiffre.
Exemple :
La somme des chiffres de l’entier 2004 est égale à 6 (2+0+0+4=6) et par conséquent l’entier 2004 sera affiché.
N.B : La solution doit comporter au moins deux modules.