Среди пятизначных чисел вычислить среднее арифметическое чисел сумма цифр которых находится в пределах 20-30 Это в паскале нужно

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

program averageNumber;

var
num, digit, sum, count, average: integer;

begin
count := 0;
sum := 0;

for num := 10000 to 99999 do
begin
digit := num;
while digit <> 0 do
begin
sum := sum + digit mod 10;
digit := digit div 10;
end;

end;

average := average div count;

writeln('Среднее арифметическое чисел: ', average);

end.

// Программа вычисляет среднее арифметическое всех пятизначных чисел, сумма цифр которых находится в пределах 20-30.