2. Решить задачи А) Найти среднее арифметическое цифр натурального числа n. (Использовать частично стандартный алгоритм

var
a, i, k, err: integer;
s :string;
b:char;

begin
readln(s);
for i := 1 to length(s) do
begin
b:=s;
val(b,a,err);
k:=a+k;
end;
write(k/i);
end.