const 
    N = 100;
var
    A : array [1..N] of integer;
    I, J : integer;

procedure SelectionSort;
var
    T: Integer;
begin
  for I := 1 to N-1 do
    for J := N downto I+1 do
      if A[I] > A[J] then
      begin
        T := A[I];
        A[I] := A[J];
        A[J] := T;
      end;
end;

begin
   Randomize;
   for I := 1 to N do A[I] := random(N);
   for I := 1 to N do write(A[I],' ');
   writeln; writeln;
   SelectionSort;
   for I := 1 to N do write(A[I],' ');
end.