Pascal :

var s,i,j,n,h:integer;
t:real;
 a:array[1..100] of real;
begin
readln(n);
for i:=1 to  n do
    read(a[i]);
 for i:=1 to n 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;
 for i:= 1 to n do
  if i=1 then write(a[i]:3:2) else write(' ',a[i]:3:2);
end.