Program zadanie;
var tablica:array[0..9] of integer;
i,j,bufor:integer;
begin
	randomize;
	for i:=0 to 9 do
	begin
		tablica[i]:=random(10)+1;
		write(tablica[i],' ');
	end;
	writeln;
	for i:=0 to 8 do
	for j:=0 to 8 do
	begin
		if
		tablica[j]>tablica[j+1]
		then
		begin
			bufor:=tablica[j];
			tablica[j]:=tablica[j+1];
			tablica[j+1]:=bufor;
		end;
	end;
	for i:=0 to 9 do
	write(tablica[i],' ');
	writeln;
	readln;
end.