Нужно вычислить среднее арифметическое двух вещественных чисел, если можно программу

Program pr; Var a, b:real; Write('Введите A: ') ; Readln(a) ; Write('Введите B: ') ; Readln(b) ; Writeln('Среднее арифметическое: ',(a+b)/2); End.