PROGRAMME recopie
VAR
	mon_fichier, copie : FICHIER
	nom_du_fichier : CHAINE
	ligne : CHAINE
	i : ENTIER
DEBUT
	ECRIRE("Entrez le nom du fichier")
	nom_du_fichier <- LIRE()
	mon_fichier <- OUVRIR-FICHIER(nom_du _fichier, "lecture")
	copie <- OUVRIR-FICHIER("copie.txt", "ecriture")
	POUR i ALLANT DE 1 A 10 AU PAS DE 1
	TANTQUE NON OEF(mon_fichier)
	FAIRE
		LIRE(mon_fichier, ligne)	
		ECRIRE(copie, ligne)
	FINTANT
    FERMER-FICHIER(mon_fichier)
    FERMER-FICHIER(copie)
FIN
