chương trình :
Program BT;
Uses crt;
Var a,b,c,d,e,n,T: integer;
Begin
        Clrscr;
        Write('nhap so n:'); readln(n);
        T:=0;
        e:=n mod 10;          n:=n div 10;
        d:=n mod 10;          n:=n div 10;
        c:=n mod 10;          n:=n div 10;
        b:=n mod 10;          n:=n div 10;
        a:=n mod 10;          n:=n div 10;
        T:= a+b+c+d+e;
        Writeln ('tong la:', T);
        Readln;
End.
(5sao cho mình nha