program SREDNEE_GEOMETRICHESKOE;

var
SrGeoM:real;
i:integer;

begin
SrGeom:=1;
for i:=1 to 9 do SrGeom:=SrGeom*i;
srGeom:=exp(ln(srGeom)/i);
writeln('Srednee geometricheskoe vseh zelih polozhitelnix chisel menshe 10 [1..9] = ',SrGeom:6:4);

readln;
end.

Srednee geometricheskoe vseh zelih polozhitelnix chisel menshe 10 [1..9] = 4.147
2