var
a:array[1..1000] of longint;
b,c:longint;
 
procedure qs(l,r:longint);
var
   i,j,x,temp:longint;
begin
   x:=a[(l+r) div 2];
   i:=l;
   j:=r;
   while (i<=j) do begin
      while (a[i]<x) do i:=i+1;
      while (a[j]>x) do j:=j-1;
      if (i<=j) then begin
         temp:=a[i];
         a[i]:=a[j];
         a[j]:=temp;
         i:=i+1;
         j:=j-1;
      end;
   end;
   if (l<j) then qs(l,j);
   if (i<r) then qs(i,r);
end;
var c :integer;
begin
Readln(a[c]);
qs (a[c]);
For b := 1 to c do begin
Writeln(a[b]);
End;
end.