Вводится натуральное число. необходимо подсчитать сумму и количество цифр. результат вывести на экран через запятую. в программе должна быть процедура ввода и процедура для подсчёта суммы и количества цифр. обязательное использование цикла с постусловием! паскаль а
var a,b,c,d,e: integer;
begin
write('Введите a=');
read(a);
b:=10;
c:= a+b;
writeln('Сумма равна ',c);
e:=0;
while c>0 do
begin
d:=c mod 10;
c:=c div 10;
e:=e+1;
end;
writeln('В числе ', e, ' цифр(-a/-ы)');
end.