Ввести 3-х значное число, вывести сумму его цифр (паскаль)

program zz1;

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

begin

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

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

s:=0; / / задаем начальное значение для суммы

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

begin

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

s:=s + k; / / прибавляем ее к сумме

n:=n div 10; / / выбрасываем ее из числа

end;

//выводим ответ

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

end.