!
!     ナベアツ	世界のナベアツ 3の倍数と3の付く数字でGYA!
!     参考: http://hydro.iis.u-tokyo.ac.jp/~agata/doc/program_semi/semi7.html
!     日本語がWRITEできないな...

      PROGRAM main
      CHARACTER A*8, nabe*15			! 先にFUNCTIONの型を宣言
      WRITE(*,'(A)', advance='no') 'Nabe to N? : '
      READ(*,*) N
      DO 10 I=1,N
         A=nabe(I)
         IF (LGT(A, '')) THEN
            WRITE(*,'(AA)', advance='no') trim(A), ', '
         ELSE
            WRITE(*,'(I3A)', advance='no') I, ', '
         ENDIF
 10   CONTINUE
      END PROGRAM main

      CHARACTER FUNCTION nabe(n)
      CHARACTER moji*10
      nabe = ''
      WRITE(moji, '(I3)') n	! 文字列変数に出力すると文字列代入される
      IF (MOD(n,3) .EQ. 0 .OR. SCAN(moji, '3') .GT. 0) THEN
         nabe = 'GYA!'		! SCANは文字列を探した位置が返る(なければ0)
      ENDIF
      END FUNCTION nabe