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

Что тут не так??

program chisla;
var a,b, sr: real;
begin
clrscr;
writeln(vvedite chislo a=);
readln (a);
writeln(vvedite chislo b=);
readln (b);
sr:=((a+a+a)*(b+b+b))/2;
writeln(srednee arifmeticheskoe chisel=,sr);
readln;
end.

Sr:=((a*a*a)+(b*b*b))/2;

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.