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

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