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

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)