даны два числа найти среднее арифметическое кубов этих чисел и среднее

var a, b: real;begin writeln('Введите два числа'); readln(a, b); //Вводим числа а и b writeln('Среднее арифметическое кубов этих чисел: ', ((a * a * a) + (b * b * b)) / 2 : 0 : 5); Печатаем среднее арифметическое кубов этих чисел с округлением до 5 символов после запятой writeln('Среднее геометрическое модулей этих чисел: ', sqrt(abs(a) * abs(b)) : 0 : 5); Печатаем среднее геометрическое модулей этих чисел с округлением до 5 символов после запятойend.