Ответ:

var

a, b: real;

begin

writeln('Введите два числа:');

readln(a, b); { <-- Вводим два числа и нажимаем Enter }

{ Выводим результат: }

writeln('Среднее арифметическое чисел ', a, ' и ', b,

' равно ', (a + b) / 2);

readln

end.