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

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