даны два неотрицательных числа 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.