program pr;

const N = 20;

type mas = array[1..N] of integer;
      int = integer;//привычка из C#

var Ar: mas;
     i: int;
      
procedure Rand;

var i: int;

begin
      randomize;

     for i:= 1 to N do begin
      
         Ar[i] := -20 + Random(41);
          

      
     end;
      

end;

procedure Wrt;

var i: int;

begin

       writeln;
     for i:= 1 to N do begin

         write(Ar[i]:5);

     end;

     writeln;

end;

procedure Main;

var i, x: int;

begin

        i := 1;
       writeln;
     while i < N do
     begin

         if Ar[i] > Ar[i+1] then begin
          
             x := Ar[i];
             Ar[i] := Ar[i+1];
             Ar[i+1] := x;
         end;
          
           Wrt;

         i := i + 2;
      
     end;
      

end;

begin
     rand;
     Wrt;
     Main;
     Wrt;

end.