Соберите программу ** языке Паскаль. Вывести ** экран сумму цифр целого числа m>0

Question

Соберите программу на языке Паскаль. Вывести на экран сумму цифр целого числа m>0

Answer 1

Begin 
write('Введите целое положительное число m: '); 
var m := ReadInteger; 
assert(m > 0);  
var s := 0; 
while m > 0 do  begin   
s += m mod 10;   
m := m div 10; 
end;  
writeln('Сумма цифр числа m равна ', s);
end.