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

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