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

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

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.