Сумма цифр введенного числа на языке Паскаль?

Чтобы найти сумму цифр числа нужно последовательно получить каждую цифру числа. Для этого организуем цикл, а внутри будем брать остаток от деления на 10. При этом на каждом шаге само число модифицируем, присваивая значение целочисленного деления на 10.

Приведенное ниже решение является универсальным и подходит для того, чтобы найти сумму цифр трехзначного, четырехзначного числа и т.д.

program ex44;
uses crt;
var
k,s:integer;
n,m,os: longint;
begin
clrscr;
s:=0;
k:=0;
write('введите число n: ');
readln(n);
m:=n;
repeat
os:= m mod 10;
m:=m div 10;
k:=k+1;
s:=s+os
until m<=0;
writeln('количество цифр в числе = ',k);
writeln('сумма цифр числа = ',s);
readln;
end.