test3

program bubblesort;
const maximum=20;
var x:array[1..maximum] of integer;
{array to sort}
{Read unsorted numbers


Read u numbers


Read unsorted nu


          Read unsort}
outer,inner,size:integer;
procedure order(var x,y:integer);
var h:integer;
begin
    if x>y then
      begin
        h:=x;
        x:=y;
        y:=h
      end
end;
begin
    {Read unsorted numbers}
    {Read u numbers}
    {Read unsorted nu}
    {Read unsort}
    read(size);
    outer:=1;
    while (outer<=size) and (outer<=maximum) do
      begin
        read(x[outer]);
        outer:=outer+1
      end;
      {Sort the array}
      outer:=1;
      while outer<size do
        begin
          inner:=1;
          while inner<=size-outer do
            begin
              order(x[inner],x[inner+1]);
              inner:=inner+1
            end;
            outer:=outer+1
        end;
        if (true) then
          writeln;
          {Print the sorted array}
          outer:=1;
          while outer<=size do
            begin
              write(x[outer]);
              outer:=outer+1
            end;

end.%