// Получаем число. Далее входим в цикл. Чтобы получить последнюю цифру числа, нужно взять остаток при делении этого числа на 10. Добавляем эту цифру в сумму, увеличиваем счетчик цифр. После чего убираем последнюю цифру из числа (для этого делим его нацело на 10). Повторяем эти действия, пока число не станет равно 0. После завершения цикла выводим результаты.

// При тестировании программы не забывайте, что тип integer может хранить числа из ограниченного диапазона значений.

program NumInfo;

var num, sum, counter, digit: integer;

begin

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

 readln(num);

 sum := 0;

 counter := 0;

 repeat

   digit := num mod 10;

   sum := sum + digit;

   counter := counter + 1;

   num := num div 10;

 until num <= 0;

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

 writeln('Сумма цифр: ', sum);

end.