Program Qsort_Mpq;

Const Maxn=100000;

var
  n:longint;
  a:array[0..Maxn] of longint;

procedure init;
var
  i:longint;
begin
  readln(n);
  for i:=1 to n do readln(a[i]);
end;

procedure qsort(l,r:longint);
var
  i,j,m:longint;
begin
  i:=l; j:=r; m:=a[(i+j) div 2];
  repeat
    while a[i]<m do inc(i);
    while a[j]>m do dec(j);
    if i<=j then
    begin
      a[0]:=a[i];
      a[i]:=a[j];
      a[j]:=a[0];
      inc(i);
      dec(j);
    end;
  until i>j;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;

procedure print;
var
  i:longint;
begin
  for i:=1 to n do writeln(a[i]);
end;

begin
  init;
  qsort(1,n);
  print;
end.