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

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.