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

Program Begin8;

Var
  a, b: Real;

Begin
  ReadLn(a, b);
  WriteLn('(a+b)/2 = ', ((a + b) / 2):6:3);
  ReadLn;

End.