1 . Viết chương trình nhạo dãy N số nguyên .tính tích các số chẵn Giúp mk vs ạ

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

program h247;

uses crt;

var i, n, tich: integer;

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

begin

write('Nhap n '); readln(n);

tich:=1;

for i:=1 to n do

begin

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

if a[i] mod 2=0 then tich:=tich*i;

end;

write('Tich cac so chan la ',tich);

end.