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.