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

Program z1;

var

A, B : Real;

begin

Write ('Введите 1 число: ') ; ReadLn (A) ;

Write ('Введите 2 число: ') ; ReadLn (B) ;

WriteLn ('среднее арифметическое кубов = ', (A*A*A+B*B*B) / 2:4:2) ;

WriteLn ('среднее геометрическое = ', Sqrt (ABS (A) * ABS (B)) : 4:2) ;

end.