program sochan;
uses crt;
var A,B:array[1..100] of integer;
n,i:byte;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
randomize;
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
B[i]:=random(2000)-1000;
end;
write('Mang A: la: ');
for i:=1 to n do write(A[i],' ');
writeln;
write('Cac phan tu chan cua mang A la: ');
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],' ');
writeln;
write('Mang B la: ');
for i:=1 to n do write(B[i],' ');
writeln;
write('Cac phan tu chan cua mang B la: ');
for i:=1 to n do
if B[i] mod 2=0 then write(B[i],' ');
readln;
end.