var n,i,j: integer;
a:array[1..10000] of real;
tam: real;
begin
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
tam:=0;
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
end;
writeln('mang sau khi sx:');
for i:=1 to n do
write(a[i]:5:2,' ');
end.

uses crt;
var  a : array[1..100] of integer;
n,i ,j,k : integer;
begin clrscr;
write('Nhap n :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin
k:=a[i]; a[i]:=a[j];a[j]:=k; end;
writeln('Phan tu mang A da sap xep tang dan la :');
for i:=1 to n do write(a[i]:3);
readln
end.