Склавиатуры вводится число, определить количество цифр и найти сумму этих чисел. паскаль.

Var
  n,k,s,d:longint;
begin
  Write('Введите натуральное число: ); Readln(n);
  s:=0; k:=0;
  while n<>0 do begin
    d:=n mod 10;
    Inc(k);
    s:=s+d;
    n:=n div 10
  end;
  Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.

Тестовое решение:
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26