1 . CHO mảng B một chiều gồm N (N>250) số nguyên . Viết chương trình nhập giá trị vào mảng và in ra màn hình các phần tử có giá trị là Chẵn của mảng giải giúp với ạ

uses crt;

var a:array[250...10000]of integer;

i,n,t,dem:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': ');

readln(A[i])

end;

write('Cac so chan la: ');
for i:=1 to N do
if A[i] mod 2 = 0 then write(A[i]:2);
readln
end.

uses crt;
var A:array[250..1000] of integer;
    N,i:integer;
begin
   clrscr;
   write('Nhap N: '); readln(N);
   for i:=1 to N do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i])
   end;
   write('Cac so chan la: ');
   for i:=1 to N do
   if A[i] mod 2 = 0 then write(A[i]:2);
   readln
end.