Geometrisk gennemsnits function

Hej,

Jeg skal bruge en function der kan udregne det geometrisk og arithmetisk gennemsnit af en array. Ved udregning af den arithmetisk gennemsnit kan jeg bruge mean functionen i Delphi. Men jeg kan ikke umiddelbart find en function til udregning af den geometriske gennemsnit for et antal numre.

Et eksemple:

a=2, b=3, c=10 (antal nummer = 3)

Arithmetisk gennemsnit = (a+b+c)/n
                      = (2+3+10)/3= 5
Geometrisk gennemsnit = (a*b*c)^(1/n)
                      = (2*3*4)^(1/3) = 3.9419

Jeg vil meget gerne vide om nogen har/kender et component/adin som jeg kan bruge til Delphi.

M.v.h.
Peter