viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=500). In ra màn hình các số chẵn trong mảng

uses crt;

var a: aray[1..1000] of longint;

      i,n: longint;

begin

clrscr;

repeat readln (n);

until n<=500;

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 a:array[1..500] of longint;
    n,i:integer;
begin
    clrscr;
    write('Nhap so luong phan tu (n<=500): '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
    write('Cac so chan: ');
    for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
    readln;
end.