Нужно вычислить среднее арифметическое двух вещественных чисел, если можно программу
Program pr; Var a, b:real; Write('Введите A: ') ; Readln(a) ; Write('Введите B: ') ; Readln(b) ; Writeln('Среднее арифметическое: ',(a+b)/2); End.
числа могут быть и дробными
Это учтено. Поэтому a и b переменные вещественного типа, то есть real. Кстати, исправьте последнюю строчку на: Writeln('Среднее арифметическое: ', (a+b)/2:0:2); иначе вывод будет не тот.