даны два неотрицательных числа a b найти среднее арифмитическое

program zz1;

var a, b, r : integer; / / задаем переменные целого типа

begin

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

read (a);

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

read (b);

r:=a + b; / / вычисляем сумму чисел

write (' среднее арифметическое двух заданных чисел = ', r/2); / / выводим ответ

end.