Дано натуральное число 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.