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

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

Что здесь не так??

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.