Найти среднюю цифру натурального числа (только для чисел с нечётным количеством цифр).
Написать на PascalABC.NET, используя процедуру, заранее спасибо.

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

var
n, count, sum, average: integer;

procedure AverageDigit(num: integer);
begin
count := 0;
sum := 0;

while num <> 0 do
begin
sum := sum + num mod 10;
count := count + 1;
num := num div 10;
end;

average := sum div count;
end;

begin
write('Введите натуральное число: ');
readln(n);

AverageDigit(n);

writeln('Средняя цифра числа ', n, ' равна ', average);
end.