program l44;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
x:array[1..12] of integer;
i,j,k,n:integer;
begin
randomize;
writeln('Enter N:'); readln(n);
for i:=1 to n do x[i]:=random(10);
for i:=1 to n do write(x[i],' '); writeln;

for i:=n downto 1 do begin
j:=1;
while j<i do begin
if x[i]<x[j] then begin k:=x[i]; x[i]:=x[j]; x[j]:=k; end;
inc(j);
end;
for k:=1 to n do write(x[k],' '); writeln;
end;

readln;
end.