Nhập n bất kỳ sau đó in ra tổng các chữ số của n

program window;

uses crt;

var n,m:longint;tong:byte;

 BEGIN

clrscr;

  write('Nhap n: ');readln(n);

  tong:=0;m:=n;

  while m>0 do

    begin

      tong:=tong+m mod 10;

      m:=m div 10;

end;

writeln('Tong cac chu so cua ',n,' la: ',tong);

readln

END

Chúc bạn học tốt

Program FNG;
Uses crt;
Var St: String;
    i,s,so: longint;
    code: byte;
Begin
        Clrscr;
        Write('Nhap so: '); Readln(St);
        s:=0;
        For i:=1 to length(St) do
        Begin
                Val(St[i],so,code);
                s:=s+so;
        End;
        Write('S = ',s);
        Readln
End.