Program z1617;
uses crt;
var n: longint;
c,s,k:byte;
Begin
Writeln('Vvedite 4islo'); Readln(n);
s:=0; k:=0;
while n>0 do begin
c:= n mod 10;
if c mod 2>0 then begin
s:=s+c; k:=k+1 end;
n:=n div 10;
end;
if k=0 then writeln (' Ne4etnih cifr v chesle net')
else writeln(' srednee arifmiti4eskoe zna4enie ne 4etnih cifr 4isla', s/k);
End.