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

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.