Напишите программу среднее геометрическое всех чисел ** отрезке (a b)

Question

Напишите программу среднее геометрическое всех чисел на отрезке (a b)

Answer 1

//PascalABC.Net 3.2
begin
var prod:=1;
var a:=readinteger('a ='); var b:=readinteger('b =');
for var i:=a to  b do prod*=i;
write ('Ср. геометрическое: ', prod/(b-a))
end.