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

program zz1;

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

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

begin

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

read(x);

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

read(y);

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

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

end.