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

program zz1;
var a, b, r:real; // задаем переменные не целого типа
begin
write( введите первое число); // вводим с клавиатуры 1-ое число
read(a);
write( введите 2-ое число); // вводим с клавиатуры 2-ое число
read(b);
r:=(a*a*a+b*b*b)/2; //вычисляем среднее арифметическое кубов 2-ух чисел по формуле
write( среднее арифметическое кубов 2-ух чисел = , r:5:2); // выводим ответ в формате пять символов для всего числа и два знака после точки
end.