# Fonction PCODE ID = 660003942
REGISTRE ENTIER entier

REGISTRE  ENTIER  msdigit
REGISTRE  ENTIER  res
REGISTRE  ENTIER  indice
REGISTRE  ENTIER  puiss_dix


entier = depilerENTIER()

puiss_dix = 10
indice=0
res  = entier / puiss_dix
puiss_dix = 100

POINT BOUCLE_MSD

	msdigit = res
	res  = entier / puiss_dix
	SI(res ==0)
	ALORS
		RETOUR  msdigit
	FINSI 

	indice= indice +1
	SI(indice < 10)
	ALORS
		puiss_dix= puiss_dix*10
		SAUT  BOUCLE_MSD
	FINSI

