Информатика, цикл repet1) определить сумму и количество цифр числа. число вводится склавиатуры.итог, к примеру: n= 12345сумма цифр числа равна 15количество цифр в числе 5​

program p1;

var a,s,k: integer;

begin

write('Введите число: ');

readln(a);

s:=0;

k:=0;

repeat

s:= s+a mod 10;

k:= k+1;

a:= a div 10;

until a=0;

writeln('Сумма цифр числа равна ',s);

writeln('Количество цифр в числе ',k);

end.

Пример:

Введите число: 12345

Сумма цифр числа равна 15

Количество цифр в числе 5