начало где вар, и аррау напиши сам(а)
for i=1 to 7 do
writeln(x)
k:=0;
if (a[i] mod 2 =0) and (a[i] mod 7 =0)
then k:=k+1;
writeln(k)
