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

program digits;var i, k, s, n, n1: integer; // i — параметр цикла, k — количество цифр, // s — сумма цифр, n - вводимое число, n1 - копия числа.

beginwriteln(\'Введите число\');readln(n);n1:= n; 

while n > 0 do // определение количества цифр числа n beginn:= n div 10;k:= k + 1;end;writeln (\'Количество цифр: \', k);

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

for i:= 1 to k - 1 do //определение остальных цифр и их суммыbeginn1:= n1 div 10;s:= s + n1 mod 10;end;

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