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

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