uses crt;
var A,B:array[1..100] of integer;
C:array[1..200] of integer;
i,n,m,temp,k,j:integer;
begin
clrscr;
repeat
write('Nhap so phan tu cua mang A:...