Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел. Помагите плииз)!!

Var
  a, b: real;

begin
  Write(Введите два числа через пробел );
  Readln(a, b);
  Writeln(Среднее арифметическое кубов равно , (a * sqr(a) + b * sqr(b)) / 2);
  Writeln(Среднее геометрическое модулей равно , sqrt(abs(a * b)))
end.

Тестовое решение:
Введите два числа через пробел -13.5 17.43
Среднее арифметическое кубов равно 1417.4722035
Среднее геометрическое модулей равно 15.3396544941534

**********************
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.