Подсчитать сумму цифр числа.

s:=0;
while n>0 do
 begin
  s:=s+n mod 10;
  n:=n div 10;
 end;

program zadanie;
uses crt, utils;
var stA, a, result, resultA, odin, cifra :integer;
 
begin
clrscr;
result := 0;
resultA := 0;
odin := 1;
write('Введите число: ');
readln(a);
writeln;
stA := abs(a);
 
if (stA <> 0) then
begin
repeat
a := a div 10;
result := result + 1;
until (a = 0);
for odin := odin to result do
begin
cifra := stA mod 10;
stA := stA div 10;
resultA := resultA + cifra;
end;
WriteLn('Количество цифр: ',result);
WriteLn('Сумма цифр: ',resultA);
end else begin
WriteLn('Введите число, отличное от нуля!');
end;
WriteLn;
WriteLn;
writeln('Время выполнения (в секундах): ',Milliseconds/1000);
 
end.

var
  x, sum, m: integer;
 
begin
  sum := 0;
  write('Введите число: ');
  read(x);
  while(x <> 0) do
  begin
    m := x mod 10; 
    x := x div 10;
    sum := sum + m;
  end;
  write('Сумма цифр: ', sum);
end.