Написать программу, использующую ПРОЦЕДУРУ и ФУНКЦИЮ, вычисляющую среднее арифметическое трёх чисел (числа вводит пользователь). Ввод и вывод данных осуществляется в теле основной программы.

Programe pp;

var a,b,c:integer;

begin

writeln('введите количество чисел');

read(a);

c:=0

for a=0 do begin

a:=a-1;

writeln('введите число');

read(b);

if b>0 then

c:=c+b

else

Writeln('положительное число')

end;

writeln(c);

end.

надеюсь правильно