Nhập từ bàn phím 2 mảng 1 chiều A,B sau đó in 2 mảng vừa nhập lên màn hình

program mang;

uses crt;

var A,B:array[1..100] of integer;

      i,n,m:integer;

begin

clrscr;

write(‘Nhap so luong phan tu cua mang A: ‘);   readln(n);

writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG A: ‘);

for i:= to n do

 begin

  write(‘A[‘,i,’]= ‘);

  readln(A[i]);

 end;

write(‘Nhap so luong phan tu cua day B: ‘);   readln(m);

writeln(‘NHAP GIA TRI PHAN TU CUA MANG B’);

for i:=1 to m do

 begin

  write(‘B[‘,i,’= ‘);

  readln(B[i]);

 end;

write(‘Mang A la: ‘);

for i:=1 to n do

 write(A[i],’ ‘);

writeln;

write(‘Mang B la: ‘);

for i:=1 to m do

 write(‘B[i],’ ‘);

readln

end.