program SumOfDigits;
var
N, number, sum, count: integer;
begin
sum := 0;
count := 0;
write('Введите целое число N: ');
readln(N);
number := N;
repeat
sum := sum + (number mod 10);
number := number div 10;
count := count + 1;
until number = 0;
writeln('Количество цифр в числе: ', count);
writeln('Сумма цифр числа: ', sum);
end.

Программа запрашивает у пользователя целое число N, затем с помощью операций деления нацело и взятия остатка от деления находит количество цифр в числе и их сумму. Результат выводится на экран.