program Arrange;
uses crt;
var
    n,i,c,p,pos:byte;
    a,s:array[1..20] of real;
function Min(a:array of real;n:byte):real;
var
    i:byte;
begin
    Min:=a[1];
    for i:=1 to n do
       if Min>a[i] then Min:=a[i];
end;
function MinPos(a:array of real;n:byte):byte;
var
   i:byte;
   min:real;
begin
    MinPos:=1;
    min:=a[1];
    for i:=1 to n do
        if min>a[i] then begin
            min:=a[i];
            MinPos:=i;
        end;
end;
begin
    clrscr;
    repeat
       write('N = '); readln(n);
    until (n>1) and (n<21);
    for i:=1 to n do
       read(a[i]);
    readln;

   p:=1;
   c:=n;
   for i:=1 to c do begin
     pos:=MinPos(a,n);
     s[p]:=Min(a,n);
     while pos<=High(a) do begin
        a[pos]:=a[pos+1];
        pos:=pos+1;
     end;
     n:=n-1;
     p:=p+1;
   end;

   for i:=1 to c do
       write(s[i]:0:0,' ');
    readln;
end.