Прошу Помочь

"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.