type vector=array[1..5000]of integer;
var n,i:integer;f,g:text;
v:vector;
procedure citesc;
begin
 assign(f,'algsort.in');reset(f);
 assign(g,'algsort.out');rewrite(g);
   readln(f,n);
    for i:=1 to n do
     read(f,v[i]);
    end;

procedure tiparesc;
begin
 for i:=1 to n do write(g,v[i],' ');
 end;
procedure sortez;
var gasit:boolean;
    man:integer;
begin
  repeat
  gasit:=false;
   for i:=1 to n-1 do
    if v[i]>v[i+1] then begin
    gasit:=true;
    man:=v[i];v[i]:=v[i+1];v[i+1]:=man
    end
    until not gasit;
    end;
    begin
    citesc;
    sortez;
    tiparesc;  close(f);close(g);
    end.