uses crt;
var X : array [1 .. 100] of integer;
i, N, d : integer;
begin
clrscr;
write('Nhap so phan tu = '); readln(N);
d := 0; for i := 1 to N do begin
write('Nhap so thu ', i ,' = '); readln(X[i]);
if (X[i] mod 2 = 0) and (X[i] mod 7 = 0) then
d := d + 1; end;
write('Co ', d ,' so chan chia het cho 7');
readln
end.