Đây là chương trình tính tích các phân tử là số chẵn của dãy n số nguyên:

```
program TinhTichSoChan;
var
n, i, x: integer;
tich: longint;
begin
write('Nhap so phan tu cua day: ');
readln(n);
tich := 1;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(x);
if x mod 2 = 0 then // kiem tra x co phai la so chan hay khong
tich := tich * x; // neu la so chan thi nhan vao tich
end;
writeln('Tich cac phan tu la so chan cua day la: ', tich);
readln; // dung man hinh
end.
```