program Project2;

{$APPTYPE CONSOLE}

uses
   SysUtils;

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, up: int;  
begin  
i := 1;  
repeat  
up := 0;  
       for i:= 1 to N do  
       begin  
           if Ar[i] < Ar[i+1] then  
           begin  
               up := 1;  
               x := Ar[i];  
               Ar[i] := Ar[i+1];  
               Ar[i+1] := x;  
           end;  
       end;  
Wrt;  
writeln;  
until up = 0;  
end;  

begin  
       rand;  
       Wrt;  
       writeln;  
       Main;  
       Wrt;  
readln;  
end.

procedure Main;
var i, x, up: int;
begin
i := 1;
repeat
up := 0;
      for i:= 1 to N do
      begin
          if Ar[i] < Ar[i+1] then
          begin
              up := 1;
              x := Ar[i];
              Ar[i] := Ar[i+1];
              Ar[i+1] := x;
          end;
      end;
Wrt;
writeln;
until up = 0;
end;

begin
      rand;
      Wrt;
      writeln;
      Main;
      Wrt;
readln;
end.

procedure Main;
var i, x: int;
begin
i := 1;
      for i:= 1 to 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;
          writeln;
      end;
end;

begin
      rand;
      Wrt;
      writeln;
      Main;
      Wrt;
readln;
end.