运用Fortran设计，判断 10 以内的数哪些是质数

在Fortran中设计一个函数来判断10以内的数是否为质数，可以按照以下步骤编写：

program PrimeNumbersInRange
    implicit none
    integer :: number, i

    ! 定义一个数组存储1到10的数字
    integer, dimension(10) :: numbers = [2, 3, 4, 5, 6, 7, 8, 9, 10]

    do i = 1, size(numbers)
        ! 判断每个数是否为质数
        if (numbers(i) > 1) then
            integer :: is_prime = True
            do j = 2, int(sqrt(numbers(i)))
                if (mod(numbers(i), j) == 0) then
                    is_prime = False
                    exit
                end if
            end do
            if (is_prime) then
                write(*,*) numbers(i), " 是质数"
            else
                write(*,*) numbers(i), " 不是质数"
            end if
        else
            write(*,*) numbers(i), " 不是质数（因为质数定义为大于1的整数）"
        end if
    end do

end program PrimeNumbersInRange

这个程序首先创建了一个包含1到10的数组，然后遍历数组中的每个数，检查它是否能被2到其平方根之间的其他整数整除。如果找到这样的因子，就不是质数；否则，它是质数。

运行此程序将输出1到10之间各数是否为质数的结果。