Программа запрашивает у пользователя количество чисел, которое он будет вводить с клавиатуры. после этого пользователь вводит числа,а компьютер находит среднее арифметическое только для положительных чисел

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.