FONCTION nieme_chiffre ( p, n : ENTIER) : ENTIER
VAR 
	tmp, i : ENTIER
DEBUT
	tmp <- 1
	POUR i ALLANT de 1 à (n- 1) AU PAS DE 1 
	FAIRE
		tmp <- tmp * 10
	FINPOUR
	RETOURNER ( (p DIV tmp) MOD 10 )
FIN

FONCTION nbChiffres ( p : ENTIER) : ENTIER
VAR n, tmp : ENTIER
DEBUT
	n <- 1
	tmp <- 10
	TANTQUE ( n >= tmp)
	FAIRE
		n <- n + 1
		tmp <- tmp*10
	FINTANTQUE
	RETOUNER(n)
FIN
