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