Найти сумму цифр заданного натурального числа - Free Pascal

Найти сумму цифр заданного натурального числа

Листинг программы

var n,s:integer;
begin
readln(n);
n:=abs(n);
s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;
write('Сумма цифр=',s);
readln
end.

Объяснение кода листинга программы

Объявляются две переменные: n и s типа integer (целое число).
С помощью функции readln() в переменную n считывается натуральное число.
Используя оператор abs(), значение переменной n приводится к положительному числу.
Переменная s инициализируется нулем.
В цикле while происходит обработка числа n.
В каждой итерации цикла значение переменной n делится на 10 (функция div()) и остаток от деления прибавляется к переменной s (оператор mod()).
После окончания цикла выводится сообщение с результатом вычислений (функция write()).
В конце программы запрашивается ввод (функция readln()).