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

Program Hotboy ; 

uses crt;

var a,s: Integer;

Begin

clrscr;

  write('Nhap so tu ban phim'); readln(a);

While a>0 do 

    begin

 s:=S+a mod 10;

 a:=a div 10 ;

 end; 

writeln('Tong cac chu so la: ',S);

readln

End.

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