Написать программу на Паскале. Дано натуральное число. Вычислить среднее геометрическое нечетных цифр.

Var n, c, d, p: integer;

begin

readln (n);

p : = 1;

while n0 do begin

d : = n mod 10;

n : = n div 10;

if d mod 2 = 1 then begin

p : = p * d;

c : = c + 1;

end;

end;

if c = 0 then writeln (0)

else writeln (Exp (Ln (p) / c) : 0:3);

end.