program alphabet
    implicit none
    character alpha
    read *, alpha
    if(alpha >= 'a' .and. alpha <= 'z')then
        print *, 'a'
    else if(alpha >= 'A' .and. alpha <= 'Z')then
        print *, 'A'
    end if
end program