Ответ: Странное у Вас обращение а функции… непонятно, зачем ей возвращать результат, если он не используется…
Ответ: Вашу внимательность да мне бы. Исправил
Ответ: Это не внимательность, это профессиональный навык программиста
Ответ: function average( x, y: real );var c: real;beginc := ( x + y ) / 2;writeln(‘Среднее арифметическое двух чисел с помощью функции: ‘, c);end;procedure average_p( x, y: real );var c: real;beginc := ( x + y ) / 2;writeln(‘Среднее арифметическое двух чисел с помощью процедуры: ‘, c);end;var a, b: real;beginwrite(‘Введите число a: ‘);readln(a);write(‘Введите число b: ‘);readln(b);average(a,b);average_p(a,b);end.