Program xxx;
var n, s, k, c : integer;
sa : real;
begin
write ('введите число n-');
readln (n);
k:=0;
s:=0;
while n>0 do
begin
c:= n mod 10;
s:=s+c;
k:=k+1;
n:=n div 10
end;
write ('сумма цифр = ', s);
write ('количество цифр =', k);
sa:=s/k;
write ('среднее арифметическое =', sa)
end.