Дано натуральное число

[Olga2208]

Дано натуральное число x. Найдите среднее геометрическое цифр в его записи. (Паскаль)

[p51x]

Разрешаю. Приступайте к выполнению.

[Вадим Мошев]

Olga2208, Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.

[digitalis]

А тут можно по разному трактовать. Или символьного представления цифр числа, или значения составляющих его разрядов. Хотя если строго, то
Без вариантов - в задании сказано "в записи"
цифра - это символ
'1' = $31 etc.

var i: integer ;  s,n: real ;
begin  
   n := 0 ;
   s := 1 ;   
   readln (i) ;
   while i>0 do
     begin
       s := s * ((i mod 10) + $30) ;
       n := n + 1.0 ;
       i := i div 10
     end ;
    s := Exp(Ln(s) / n) ; { s ^ (1/n) )
   writeln (s) ;
end.

Isn't it ?