Giúp mình vs ạ mình cần gấp để nộp Viết chương trình tìm số chẵn trong một dãy số gồm N số, với N được nhập từ bàn phím( có thể dùng chia lấy phần nguyên hoặc chia lấy phần dư

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); 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.

uses crt;

var N,i:integer;

      a:array[1..100] of integer;

begin

clrscr;

readln(N);

for i:=1 to N do readln(a[i]);

For i:=1 to N do if a[i] mod 2=0 then write(a[i],' ');

readln

end.