Begin8. Даны два числа a и b. Найти их среднее арифметическое: (a+b)/2.
var a, b, sr: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  sr:=(a+b)/2;
  writeln('Среднее арифметическое = ', sr:6:2);
end.