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

program zz1;

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

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

begin

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

read(x);

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

read(y);

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

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

writeln( 1-ое начальное число отличается от среднего на = , s - x );

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

end.