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

program zz1;

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

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

begin

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

read (x);

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

read (y);

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

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

end.