PROGRAMME Palindrome
VAR
	mot: CHAINE
	i : COMPTEUR
	palin <- VRAI : BOOLEEN
DEBUT
	ECRIRE("entrer un mot ")
	mot <- LIRE()
	POUR i ALLANT DE 1 A LONGUEUR(mot) DIV 2 AU PAS DE 1
	FAIRE
		SI ( EXTRACTION(mot,i,1) != EXTRACTION(mot,long-i+1,1) )
		ALORS
			palin <- FAUX
		SINON
			i <- i +1
		FINSI
	FINPOUR
	SI palin
	ALORS
		ECRIRE("C'est un palindrome")
	SINON
		ECRIRE("Ce n'est pas un palindrome")
	FINSI
FIN