运用fortran，编写一个程序，使其在屏幕上实现下面的输出： **** ***** ******* ……..... 从键盘输入整数，例如 4，则输出 4 行。

以下是使用Fortran编写的程序，根据输入的整数在屏幕上输出相应的图案：

program pattern
    implicit none
    integer :: n, i, j

    print *, "请输入一个整数："
    read *, n

    do i = 1, n
        do j = 1, i
            print *, "*",
        end do
        print *
    end do

    stop
end program pattern