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

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.