Как выгледит даная задача для делфи? Найти среднее геометрическое чисел от 1 до 8. Напишите её :3

unit Math;
...

var sg: double;
i: integer;
begin
sg:=1;
for i:=1 to 8 do sg:=sg*i;
sg:=power(sg,1/8);
end;