{ Bài 10: Tính tổng các chữ số của một số được nhập từ bàn phím. }
program Tinhtongcacchuso;
var n,a,r,t:integer;
begin
writeln;
write('Nhap so can tinh: ');readln(n);
a:=n;
t:=0;
repeat
r:=n mod 10;
t:=t+r;
n:=n div 10;
until n=0;
writeln('Tong cac chu so cua ',a,' la: ',t);
readln
end.