program Noname11;
var
    x : array[1..11] of integer;
    i ,t,j: integer;
begin
  x[1]:= 10;
  x[2] := 14;
  x[3] := 22;
  x[4] := 34;
  x[5] := 44;
  x[6] := 55;
  x[7] := 67;
  x[8] := 89;
  x[9] := 100;
  x[10] := 123;
  write('Input a number: ');
  readln(x[11]);
  i:=1;
 while x[i] < x[11] do
    i:= i+1;
 
    t:=x[11];
    for j := 10 downto i do
    x[j+1] := x[j];
    x[j]:=x[11];
    x[j]:=t;

    

    write(x[1],' ',x[2],' ',x[3],' ',x[4],' ',x[5],' ',x[6],' ',x[7],' ',x[8],' ',x[9],' ',x[10],' ',x[11]);

    

      readln();
    
  
  
  
end.