Составить программу к решению задачи : "дано число n. Найти сумму и количество его цифр.

program zz1;

var i, b, n, s:integer; / / задаем переменные целого типа

begin

write (' введите заданное число ');

read (n); / / вводим с клавиатуры заданное число

i:=0;

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

b:=n mod 10; / / получаем последнюю цифру

s:=s+b; / / прибавляем последнюю цифру к сумме

n:=n div 10; / / отбрасываем последнюю цифру из числа

i:=i+1; / / считаем количество цифр

end;

writeln (' сумма цифр заданного числа = ', s);

write (' количество цифр в заданном числе = ', i); / / выводим ответ

end.