program project5_03
    implicit none
    integer :: n = 0
    open ( unit = 21, file = 'trial.txt', status = 'old')
    read (21,*) n
    print '(1x,a,i4)', "this is the value of n", n
    stop
    end program