program sort_babelkwe;
uses crt;

var
i,j,n,A1,A2:integer;
A:array [1..10] of integer;

begin
randomize;
 for i:=1 to 10 do
   A[i]:= random(100);
  for i:=1 to 10 do
   write (' ',A[i]);

   writeln;
   n:=10;


   while n>1  do
   begin
     for i:=1 to n-1 do
      begin


           if A[i] > A[i+1] then
              begin
               A1:=A[i];

               A2:=A[i+1];
               A[i]:=A2;
               A[i+1]:=A1;
               end;
           end;
       n:=n-1;
     end;
  for i:=1 to 10 do
   write ( '  ', A[i]);
  readln;

end.