Завтра экзамен!!Помогите пожалуйста составить программу!!
!Используя функцию или процедуру вычислить среднее арифметическое чисел X , Y, Z

Мне надо и с функцией и с процедурой!

В условии к вашему заданию это нигде не написано!Написано "Используя функцию или процедуру", т.е. либо функция, либо процедура!

но вы и не то и не это не использовали.

подправил через процедуру)

Var x,y,z,c:real;Procedure P(x,y,z:real; Var c:real);Beginc:=(x+y+z)/3;End;Beginwrite('Введите x,y,z: ');readln(x,y,z);P(x,y,z,c);writeln('Среднее арифметическое = ',c);End.