huitakakayato

const
    n = 10;

type
    mas = array[1..n] of integer;

var
  f:boolean;
  a:mas;
  i,j,x:integer;

begin
  for i:= 1 to n do
    begin
    a[i]:= random(10);
    write(a[i] + ' ');
    end;
  f:=true;
  i:=0;

  while f do
  begin
    f:=false;
    for j:=n-1 downto 1 do
      begin
      if a[j]<a[j+1] then
      begin
        x:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=x;
        f:=true;
      end;
    end;
  end;
  writeln;

  for i:= 1 to n do
    Write(a[i] + ' ');
end.