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

program zz1;

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

begin

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

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

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

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

begin

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

s:=s + k; // добавляем ее к сумме

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

end;

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

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

end.