program sapxep_noibot;

use WinCrt;

var i,j,n: integer;

a: array[1..50] of real;

tg:real;

begin write('nhap n:'); readln(n);

for i :=1 to n do

begin write('Nhap a[',i,i']='); readln(a[i]); end;

for i:=1 to n do

for j:=1 to n do if a[j]>a[j+i] then 

begin tg:=a[j]; a[j]:=a[j+1]; a[j+1]:=tg; end;

for i:=1 to n do writeln(a[i]:8:2,' ');

end.