Вывести сумму цифр трёхзначного числа - PascalABC.NET

Формулировка задачи:

Задали сделать домашку: 'вывести сумму цифр трёхзначного числа'. Получилось вот что:

                    Листинг программы
                
 
                        
                          
                    
program sumOf3;
  var x, y, s:integer;
begin
  writeln('Введите трёхзначное число: ');
  read(x);
  
  y:=x;
  
  y:=y div 100;
  s:=s+y;
  y:=x mod 100;
  
  y:=y div 10;
  s:=s+y;
  y:=x mod 10;
  
  y:=y div 1;
  s:=s+y;
  y:=x mod 1;
  
  writeln('Сумма цифр числа ',x,': ',s);
end.

Программу хочется сделать циклом. Каждый цикл нужно делить коэффициент (k) на 10, но тогда k приобретает тип real, а div и mod работает только с integer:

                    Листинг программы
                
 
                        
                          
                    
for i:=0 to n
begin
  y:=y div k;
  s:=s+y;
  y:=x mod k;
  k:=k/10;
end;

И как подсчитать количество символов в строке?

Решение задачи: «Вывести сумму цифр трёхзначного числа»

Листинг программы

k:=length(s);

Объяснение кода листинга программы

В первой строке кода k:=length(s); переменной k присваивается значение функции length(s), которая возвращает количество символов в строке s. Значение этой функции будет использоваться далее в коде.