program ideone;

Const smax = 100;
Type simple = array[0..smax] of smallint;
Var arr:simple; i, j, k, n:shortint; isChange:boolean; 

procedure writeArr(Var tArr:simple);
begin
	for i:= 0 to n do write(tArr[i], ' ');
	writeln();
end;

procedure swap(Var a, b:smallint);
Var temp:smallint;
begin
	temp:=a;
	a:=b;
	b:=temp;
end;

procedure bubbleSort(Var tArr:simple);
begin
	isChange:=True;
	k:=0;
	while isChange = True do
	begin
		isChange:=False;
		for j:=0 to n-k-1 do
			if tArr[j] > tArr[j+1] then begin
				swap(tArr[j], tArr[j+1]);
				isChange:=True;
			end;
		k:=k+1;
	end;
end;

begin
	read(n);
	n:=n-1;
	for i:=0 to n do read(arr[i]);
	
	bubbleSort(arr);
	writeln();
	writeArr(arr);
end.