Program Som_Chiffres;
Var
n, som, r : Integer;
Begin
Writeln ('Donner un entier');
Readln (n);
som:=0;
Repeat
r:= n mod 10;
som:=som+r;
n:= n div 10;
Until n=0;
Writeln ('La somme de chiffres est : ', som);
End.