Дан массив состоящий из 20 целых чисел. Требуется найти среднее арифметическое его нечетных элементов?

Uses crt;

const n=20;

var i, average, count:integer;

a:array[1 ... n] of integer;

begin

randomize;

writeln ('Введите элементы массива:') ;

for i:=1 to n do

begin

read (a[i]) ;

if i mod 20 then

begin

average:=average+a[i];

inc (count) ;

end;

end;

writeln (average DIV count) ;

end.