lập trình nhập vào N và dãy số nguyên X gồm M phần tử đếm và thông báo ra màn hình số lượng các số chẵn chia hết cho 7 trong dãy số C

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.

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] mod 14 = 0 then inc(d);
        End;
        Write(d);
        Readln
End.