Program Exercice08;

Var 
    n, nbr, chiffre, somme : Integer;

Begin
	{ Cette boucle force la lecture d'un nombre > 1 }
	Repeat
		WriteLn('Donnez un nombre :');
		ReadLn(n);
	Until(n > 1);
	
	nbr := 0;
	somme := 0;
	
	While(n > 0)Do
	Begin
		chiffre := n Mod 10;
		somme := somme + chiffre;
		n := n Div 10;
		nbr := nbr + 1;
	End;
	
	WriteLn('Nombre des chiffres : ', nbr);
	WriteLn('Somme des chiffres : ', somme);
	
End.