Даны два числа. найти среднее арифметическое кубов этих чисел. что тут не так? ? 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.