PROCEDUCRE mois(E numero: ENTIER)
VAR
	mois <- {'Janvier','Fevrier','Mars','Avril','Mai','Juin','Juillet','Aout','Septembre','Octobre','Nomvembre','Decembre'} : TABLEAU[1...12] : CHAINE
DEBUT
	ECRIRE(mois[numero])
FIN

