Вопрос, который вызвал трудности

Прошу Помочь
«A»: Ввести натуральное число и найти сумму его цифр.
Пример:
Введите натуральное число:
12345
Сумма цифр 15.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Прошу Помочь
«A»: Ввести натуральное число и найти сумму его цифр.
Пример:
Введите натуральное число:
12345
Сумма цифр 15.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program Y;
uses crt;
var
a, Sum:integer;
begin 
writeln('Введите число '); 
readln(a); 
Sum := 0; 
while a > 0 do  begin   
Sum := Sum + a mod 10;   
a := a div 10; 
end; 
writeln('Сумма цифр равна ', Sum);
End.