program sample
    implicit none  !二分探索
    integer(8) ::c,i,j,m(12),n,k,a1,b1,c1
    character(len=1)::a
    character(len=1),allocatable::s(:)
    character(len=1)::t(1:26)
    t=(/'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'/)
    read(*,*) a

    do i=1,26
        if(a==t(i))then
            write(*,*)'a'
            stop
        end if
    end do
    write(*,*)'A'
    stop

end program sample
  

