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

Program Y;uses crt;vara, 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.