Cả bài luôn nhé :D
var A: array [1..100] of integer;
k,n,i,tam,x:integer;
begin
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
for k:=1 to (n-1) do
for i:=1 to (n-1) do
if A[i] > A[i+1] then
begin
tam:=A[i];
A[i]:=A[i+1];
A[i+1]:=tam;
end;
writeln('Mang da sap xep la: ');
for i:=1 to n do write(A[i],' ');
writeln;
write('Nhap so x: '); readln(x);
i:=1;
while (x>a[i]) and(i<=n) do i:=i+1;
for k:=n+1 downto i do
A[k]:=A[k-1];
A[i]:=x;
write('Mang da chen x la: ');
for i:=1 to n+1 do write(A[i],' ');
readln
end.
