ввести натуральное число и найти сумму его цифр. пример: введите натуральное число: 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.