найти среднее геометрическое трех положительных чисел a,b,c

PascalABC.NET 3.4.2, сборка 1843 от 241.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (a, b, c) := ReadReal3;

 Println((a * b * c) ** (1 / 3))

end.

4.17 2.632 5

3.80012003314283