PROGRAMME Ecriture_multiplication
VAR
	mon_fichier : FICHIER
	i,j : ENTIER
	ligne : CHAINE
DEBUT
	ECRIRE("Entrez le nom du fichier")
	nom_du_fichier <- LIRE()
	mon_fichier <- OUVRIR-FICHIER(nom_du_fichier, "ecriture")
	POUR i ALLANT DE 1 A 10 AU PAS DE 1
	FAIRE
		POUR j ALLANT DE 1 à 20 AU PAS DE 1
		FAIRE
			ligne <- CONCATENER(i, " x ", j, " = ", i x j)
			ECRIRE-FICHIER(nom_du_fichier, ligne)
		FINPOUR
	FINPOUR
    FERMER-FICHIER(mon_fichier)
FIN
