FONCTION compte_mot(texte : CHAINE)
VAR
	i, nb <- 0 : ENTIER
DEBUT
	SI LONGUEUR(texte) > 0
	ALORS
		nb <- 1
	FINSI
	POUR i ALLANT DE 1 A LONGUEUR(texte) AU PAS DE 1
	FAIRE
		SI EXTRACTION(texte, i, 0) = " "
		ALORS
			nb <- nb + 1
		FINSI
	FINPOUR
	RETOURNER(nb)
FIN