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

program zz1;
var a, b, r :integer; // задаем переменные целого типа
begin
write( введите a ); // вводим с клавиатуры 1-ое число
read(a);
write( введите b ); // вводим с клавиатуры второе число
read(b);
r:=a + b; // вычисляем сумму чисел
write( среднее арифметическое 2-ух заданных чисел = , r/2); // выводим ответ
end.