Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2 (программа Паскаль)

var
a, b: real;

begin
writeln('Введите два числа:');
readln(a, b); { <-- Вводим два числа и нажимаем Enter }
{ Выводим результат: }
writeln('Среднее арифметическое чисел ', a, ' и ', b,
' равно ', (a + b) / 2);
readln
end.