Program bt3 ; 

Uses crt; 

Var n,T:integer; 

Begin 

         Clrscr; 

         T:=0; 

Write('gia tri n la : '); Readln(n); 

While ( n <> 0 ) do 

     Begin 

    T:=T+n mod 10; 
         n:=n div 10; 

     End; 

Write('T=',T); 

Readln 

End.