var a:array[100]of integer;
d,i,n,t,j :integer;
begin
dem:=0;
WRITELN('NHAP SO PHAN TU N:');
READ(N);
WRITELN('NHAP MANG:');
FOR i:=1 TO n DO
BEGIN
WRITE('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
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write('day sau khi sap xep: ');
readln 
end.