Дано два целых числа 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.