type kmang=array[1..20] of integer;

var

A:kmang;

N,i,j,tam:integer;

begin

write('nhapN=');

readln(N);

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

tam:=A[i];A[i]:=A[j];A[j]:=tam;

end;

write('kqsaukhisapxep:');

for i:=1 to N do

write(A[i]:5);

readln;

end.