даны три числа . найти среднее арифметическое и среднее геометрическое этих чисел.
Паскаль,для программы Algo

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

begin

 var (a, b, c) := ReadInteger3('a,b,c->');

 Println('Среднее арифметическое:', Round((a + b + c) / 3, 3));

 Println('Среднее геометрическое:', Round(Power(a * b * c, 1 / 3), 3));

end.