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

спасибо

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