Ответ:

program 213;

var

 x, y, z, avg: real;

begin

 writeln('Введите три числа:');

 readln(x, y, z);

 avg := (x*x*x + y*y*y + z*z*z) / 3;

 writeln('Среднее арифметическое кубов трех чисел: ', avg:0:2);

end.

В этом коде используется переменные x, y, и z, чтобы хранить три числа, а затем вычисляется их среднее арифметическое кубов в переменную avg. Наконец, результат выводится на экран. Обратите внимание на использование форматирования вывода с помощью :0:2 для вывода результата с двумя знаками после запятой.