Uses crt;
Var a: array[1..100] of integer;
i,n:integer;
Begin
Clrscr;
Write('nhap n: '); readln (n);
For i:=1 to n do
Begin
Write('nhap a[',i,']: '); readln (a[i]);
End;
Write ('cac so chan co trong mang la: ');
For i:=1 to n do
If a[i] mod 2=0 then write (a[i],' ');
Readln;
End.