СРОЧНО!!!!На паскале надо сделать задачу:даны два ненулевых числа. Найти их среднее арифметическое. Формат вывода результата «Среднее арифметическое числа ___ и числа ___ равно ___»

program Ave;

var a,b:real;

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