Program bai_tap;
Uses crt;
Var A: array [1..150] of integer;
i,n, j,t: integer;
Begin
Write ('nhap n=');
Readln (n);
For i:=1 to n do
begin
Write ('nhap phan tu thu ',i,'=');
Readln (A[i]);
end;
For j:=n downto 2 do
For i:=1 to j-1 do
If A[i]> A[i+1] then
begin
t:= A[i];
A[i]:= A[i+1];
A[i+1]:= t;
end;
Writeln ('Day so duoc sap xep la:');
For i:=1 to n do Write (A[i]:6);
Readln
End.