var
a, s: integer; // целочисленный тип данных
begin
writeln('Введите число:');
readln(a); // вводим число (можно больше трех знаков)
while a <> 0 do // пока остались цифры в числе выполнять...
begin
s := s + (a mod 10); // Отбираем последнюю цифру числа и прибавляем к сумме
a := a div 10; // Стираем последнюю цифру числа
end;
writeln('Сумма цифр = ', s) // выводим результат
end.