Написать программу которая считает количество цифр в числе и их сумму. паскаль. число вводится с клавиатуры

Для натуральных чисел:

var a, k, s:integer;

begin

write ('a = ');

readln (a);

k:=0; s:=0;

while a>0 do

begin

k:=k+1;

s:=s+a mod 10;

a:=a div 10;

end;

writeln ('k = ', k,', s = ', s);

end.

Пример:

a = 352186

k = 6, s = 25