Дано два целых числа x и y .Составить программу печатающую среднее арифметическое кубов этих чисел

program zz1;

var x, y:integer; // вводим переменные целого типа

s:real;// вводим переменную не целого типа

begin

write(' введите первое число '); // вводим с клавиатуры первое число

read(x);

write(' введите второе число '); // вводим с клавиатуры второе число

read(y);

s:=(x * x * x + y * y * y)/2; // находим среднее арифметическое кубов исходных чисел

writeln(' среднее арифметическое кубов заданных чисел = ', s:5:2); // выводим ответ

writeln(' первое исходное число отличается от среднего на = ', s - x );

write(' второе исходное число отличается от среднего на = ', s - y );

end.