viết chương trình nhập vào dãy số và in ra các sổ chẵn(sử dụng mảng)

program daysochan;

uses crt;

var A:array[1..1000] of integer;

     n,i:integer;

begin

      clrscr;

      write(‘Nhap so luong phan tu: ‘);  readln(n);

      for i:=1 to n do

      begin

      write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

              end;

       for i:=1 to n do

       if A[i] mod 2=0 then write(A[i],’)

readln

end.