program FileWriteRead

    implicit none

    open(unit=,file="F:\desktop\File.txt")

    !open(unit=,file="File.txt)

    write(,"(A20)") "Good Morning"

    read(*,*)

end program

open(unit=,file="F:\desktop\File.txt")

close(unit=,status="delete")          !先打开，再这样关闭，可删除文件。

program FileWriteRead

    implicit none

    integer::i

    real::A(,)

    open(unit=,file="F:\desktop\StudentScore.txt")

    do i=,

        write(*,"('请输入第'I2'同学三科的成绩')")i

        read(*,*)A(i,),A(i,),A(i,)

        write(,"('次序：'F5.2  ',中文:'F5.2  ',数学:'F5.2  ',英语:'F5.2 )")i,A(i,),A(i,),A(i,)

    end do

    write(*,*)"按任意键退出"

    read (*,*)

end program