Массив Паскаль

[Miha956]

Помогите составить программу в паскале
Задача
Создать массив из 10 элементов , определить , сколько процентов от всего количества элементов последовательных целых чисел составляют нечетные элементы

[Mad_Cat]

c:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if odd(a[i]) then inc(c);
end;
writeln(c*10);