Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр. решить в паскале. написать программу от начала до конца

Предыдущий
вопрос Следующий
вопрос

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, затем с помощью операций деления нацело и взятия остатка от деления находит количество цифр в числе и их сумму. Результат выводится на экран.