4a - page 133

      dimension A(11)
      A(1)=15
      A(2)=26
      A(3)=35
      A(4)=49
      A(5)=55
      A(6)=67
      A(7)=76
      A(8)=83
      A(9)=98
      A(10)=112
      read(*,*)d


      do 10 i=1,9
         if(d.GT.A(i).AND.d.LT.A(i+1)) L=i+1
 10   continue


       write (*,*) L


         do 20 j=11,L+1,-1
            A(j) = A(j-1)
 20      continue
         A(L) = d

      write(*,*)(A(i),i=1,11)

      pause
      stop
      end