Помогите с заданием...Дан массив. Напишите пропущенные команды. Ввести с клавиатуры массив

Помогите с заданием...

Дан массив. Напишите пропущенные команды. Ввести с клавиатуры массив F, из 16 частей целого типа, нумерация элементов начнется с 1 и отыскать кольчество четных частей.

Program Primer;
......... d, kch:integer;
begin
for d:=1 to ... do.....
kch:=....
for d:=1 to... do
if .... then ......
writeln......
end.