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.