В массиве А[1...7]найти сумму чётных элементов ,кратных 7. Программа Паскаль, срочно!!

начало где вар, и аррау напиши сам(а)

for i=1 to 7 do

writeln(x)

k:=0;

for i=1 to 7 do

if (a[i] mod 2 =0) and (a[i] mod 7 =0)

then k:=k+1;

writeln(k)