uses crt;
var a,b: array[1..1000] of integer;
na,nb: integer;
begin
clrscr;
write ('nhap so phan tu cua mang a: '); readln (na);
write ('nhap so phan tu cua mang b: '); readln (nb);
for i:=1 to na do
begin
write ('nhap a[',i,']: '); readln(a[i]);
end;
for i:=1 to nb do
begin
write ('nhap b[',i,']: '); readln(b[i]);
end;
write ('mang a: ');
for i:=1 to na do write (a[i],' ');
write ('mang b: ');
for i:=1 to nb do write (b[i],' ');
readln;
end.
