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

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