Дано: n-натуральное число (longint). Вычислить среднее геометрическое цифр больших единицы. Составить программу в Паскале

Var
   n:longint;
   i,s,p,y:integer;
   t:string;
   x:real;
begin
write(Введите число: );
readln(n);
p:=1;
t:=IntToStr(n);
for i:=1 to length(t) do
  begin
  y:=StrToInt(t[i]);
  if y>1 then
    begin
    s:=s+1;
    p:=p*y
    end;
  end;
x:=exp(ln(p)/s);
writeln(Среднее геом. цифр больших единицы: ,x)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.