Program BTH; uses crt; var a:array [1..10000] of longint; i,n:longint; begin clrscr; write('Nhap so n: '); readln(n); for i:=1 to n do begin write('a[',i,']: ');readln(a[i]); end; for i:=1 to n do begin If a[i] mod 2=0 then write(a[i],' '); end; readln; end.
