!学習目的：文字型変数２
! ex106.f
      character s*5

      s='abcde'
      write(*,*) s
      s(2:2)='B'
      write(*,*) s

      s='abcde'
      write(*,*) s
      s(2:3)='BC'
      write(*,*) s

      write(*,*) 'There is a pen.' !　’’で囲まれた文字が表示される．

      i=2
      write(*,*) 'There are',i,' pens.' !　変数と一緒に書ける．

      write(*,*) 'i=',i
      write(*,*) 'i=',3

      stop
      end