Программирование на паскале.найти среднее арифметическое положительных чётных чисел натурального ряда до n.(использование цикличного оператора for)

Var a,b,c,n:integer;
begin
writeln('введите количество чисел');
readln(n);
c:=0;
for a:=1 to n do begin
write('введите число => ');
readln(b);
if (b>=0) then c:=c+b; 
end;
writeln('среднее  арифметическое чисел - ',c/n);
end.