sortare

program sortare;
var a:array[1..100] of real;
    n,i:integer;
    aux:real;
    sf:boolean;
begin
write('n=');
read(n);
for i:=1 to n do read(a[i]);
repeat
 sf:=true;
for i:=1 to n-1 do
 if a[i] > a[i+1] then
  begin
   sf:=false;
   aux:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=aux;
  end;
until sf;
for i:=1 to n do writeln(a[i]:2:2)
end.