Найти сумму цифр целого положительного числа

program xx1;

var s1, n1, k1:integer; / / описываем переменные целого типа

begin

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

read (n1); / / вводим число с клавиатуры

s1:=0; / / задаем начальное значение переменной суммы

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

begin

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

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

n1:=n1 div 10; / / выбрасываем цифру из числа

end;

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

writeln (' сумма цифр заданного числа = ', s1);

end.