Ввести целое число и найти сумму его цифр (1234) Паскаль

program zz1;

var a, n, s : integer; / /задаем переменные целого типа

begin

write ('введите заданное число n ');

read (n); / / вводим заданное число с клавиатуры

while n > 0 do / / организуем цикл, пока в заданном числе имеются цифры

begin

a : = n mod 10; / / получаем последнюю цифру заданного числа

n : = n div 10; / / отбрасываем последнюю цифру заданного числа

s : = s + a; / / прибавляем полученную последнюю цифру к сумме

end;

writeln ('сумма цифр заданного числа = ', s); / / выводим ответ

end.