Дано натуральное число n. чему равно сумма его цифр ?

Program sumcifr; 
uses crt; 
var 
n: longint; 
s: integer; 
j:integer; 
begin 
clrscr; 
s:=0; j:=0; 
write('ввести число --> ');readln(n); 
while n>0 do begin j:=j+1; 
s:=s+n mod 10; 
n:=n div 10; 
end; 
writeln('число цифр числа = ',j); 
writeln('сумма цифр числа = ',s); 
readln; 
end.