Làm ơn giúp mình với iiiiiiii Mình cần gấp Mình cảm ơn ạ

Program tinh_tich;

Uses crt;

Var A :  array [1..50] of integer;

               T,i,n: longint;

 Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

T:=1;

For i:=1 to n do 

If A[i] mod 2=0 then 

T:=T*A[i];

Writeln ('Tich cac phan tu chan cua mang la:', T);

Readln 

End.