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

Программа на Object Pascal:uses crt;var n,s: integer;beginwrite('n='); readln(n);while n>=1 dobegininc(s,n mod 10);n:=n div 10;end;write(s);readln;end.