Viết đoạn chương trình nhập vào mảng số nguyên ,in ra các số là số chẵn của mảng ( mảng số nguyên với số lượng phần tử là tùy chọn ). Giúp mình với ạ

program oken;

uses crt;

var a: array [1..10000] of longint;

      i,n,chan: longint;

begin

clrscr;

write('nhap so luong phan tu cua mang'); readln(n);

for i:=1 to n do

   begin

      write('a[',i,']: '); readln(a[i]);

    end;

for i:=1 to n do

     if a[i] mod 2 = 0 then write(a[i],' ');

readln;

end.

Program BTH;
uses crt;
var a:array[1..100000] of longint;
i,n,s:longint;
Begin
        clrscr;
        Write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                write('a[',i,']: ');readln(a[i]);
        end;
        write('So chan co trong day la: ');
        For i:=1 to n do
        If a[i] mod 2=0 then write(a[i],' ');
        readln;
end.