PROGRAMME triple_espace
VAR
	fichier1, fichier2 : FICHIER
	nom_du_fichier : CHAINE
	ligne1, ligne2 : CHAINE
	i : ENTIER
DEBUT
	ECRIRE("Entrez le nom du fichier")
	nom_du_fichier <- LIRE()
	fichier1 <- OUVRIR-FICHIER(nom_du _fichier, "lecture")
	ECRIRE("Entrez le nom du fichier")
	nom_du_fichier <- LIRE()
	fichier2 <- OUVRIR-FICHIER(nom_du _fichier, "ecriture")
	
	TANTQUE NON OEF(mon_fichier)
	FAIRE
		TANTQUE NON OEF(mon_fichier)
	FAIRE
		ligne2 <- ""
		LIRE(fichier1, ligne1)	
		POUR i ALLANT DE 1 A LONGUEUR(ligne1) AU PAS DE 1
		FAIRE
			SI EXTRAIRE(ligne1,i,1) = " "
			ALORS
				CONCATENER(ligne2, "   ")
			SINON
				CONCATENER(ligne2, EXTRAIRE(ligne1,i,1))
			FINSI
		FINPOUR	
		ECRIRE(fichier2, ligne2)
	FINTANT
    FERMER-FICHIER(fichier1)
    FERMER-FICHIER(fichier2)
FIN
