Program sapxepmangbythanhtrong;
Uses Crt;
Var A : Array [1..100] of integer;
n , i , j , t : integer;
Begin
Textcolor(yellow);
Clrscr;
Write (' - Nhap so phan tu = ');Readln(n);
For i := 1 to n do
Begin
Write (' A[',i,'] = ');
Readln(A[i]);
End;
Writeln ( ' --- MANG VUA NHAP --- ');
For i := 1 to n do
Write (A[i]:4);
Writeln;
Textcolor(lightgreen);
Write (' --- TANG DAN --- ');
Writeln;
For i := 1 to n do
For j := i + 1 to n do
If A[i] > A[j] then
Begin
t := A[i]; A[i] := A[j]; A[j] := t;
End;
For i := 1 to n do
Write (A[i]:4);
Readln;
End.
