Дано два целых числа. Написать программку, определяющую среднюю арифметическую этих чисел.

program zz1;

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

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

begin

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

read(x);

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

read(y);

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

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

end.