Дано целое число. Определить в этом числе количество цифр, сумму чисел, среднее арифметическое. (Pascal)

program digits;

var i, k, s, n, n1: integer;

/ / i - параметр цикла, k - количество цифр,

/ / s - сумма цифр, n - вводимое число, n1 - копия числа.

begin

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

readln (n);

n1: = n;

while n > 0 do / / определение количества цифр числа n

begin

n: = n div 10;

k: = k + 1;

end;

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

s: = n1 mod 10; / / определение последней цифры

for i: = 1 to k - 1 do / /определение остальных цифр и их суммы

begin

n1: = n1 div 10;

s: = s + n1 mod 10;

end;

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

writeln ('Среднее арифметическое цифр: ', s / k: 6:2)

end.