На паскале надо сделать : даны два ненулевых числа. найти их среднее арифметическое. формат вывода результата «среднее арифметическое числа и числа равно »

Program Ave;

var a,b:real;

begin
  write('Введите первое число '); readln(a);
  writeln('Введите второе число '); readln(b);
  writeln('Среднее арифметическое числа ',a,' и числа ',b,' равно ',(a+b)/2);
end.