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

Формулировка задачи:

прошу помощи)

Решение задачи: «Найти сумму цифр заданного натурального числа N»

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

var
   s,n,m :integer;
begin
write('введите натуральное число: ');
readln(n);
s:= 0;
repeat
   m:= n mod 10;
   s:= s + m;
   n:= n div 10;
until n = 0;
writeln('сумма цифр: ',s);
end.

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

Введенные переменные: s, n, m (s - сумма цифр, n - входное натуральное число, m - остаток от деления на 10)
Пользователю предлагается ввести натуральное число.
Инициализация переменной s значением 0.
Запуск цикла, который будет выполняться до тех пор, пока n не станет равным 0.
В каждой итерации цикла значение переменной m присваивается остатку от деления n на 10.
Значение переменной m добавляется к переменной s.
Значение переменной n присваивается результат деления n на 10.
После окончания цикла выводится значение переменной s, которое является суммой цифр входного числа.