Program a16_16;
uses crt;
var n,j,k,i,sum:integer;
BEGIN
clrscr;
writeln('Ââåäèòå íàòóðàëüíîå ÷èñëî');
readln(n);
sum:=0;
k:=n;
j:=0;
while k>=1 do
  begin
    i:=k mod 10;
    sum:=sum+i;
    k:=k div 10;
    j:=j+1;
  end;
writeln('Ñðåäíåå àðèôìåòè÷åñêîå öèôð ÷èñëà ðàâíî ',sum/j:3:3);
readln;
END.