Дано число n. Найти сумму цифр числа

Программа на Object Pascal:

uses crt;
var n,s: integer;
begin
write('n='); readln(n);
while n>=1 do
begin
inc(s,n mod 10);
n:=n div 10;
end;
write(s);
readln;
end.