viết chương trình tính tổng các chữ số của số tự nhiên N, biết N nhập từ bàn phím

Var n,dem,tong:Longint;
Begin clrscr;
Write('Nhap so nguyen duong nhieu hon 1 chu so:');
Readln(n);
tong:=0; dem:=0;
While n>0 Do
Begin
Inc(dem);
tong:=tong+n MOD 10;
n:=n DIV 10;
End;
Writeln('Tong cac chu so:',tong);
Writeln('So cac chu so=',dem);
Readln;
End.

uses crt;
var n,s:longint;
BEGIN
      clrscr;
      write('Nhap n: '); read(n);
      while n<>0 do 
            begin
                  s:=s+(n mod 10);
                  n:=n div 10;
            end;
      writeln('Tong cac chu so: ',s);
      readln
END.