program practicequiz8
   implicit none
   interface
    subroutine george(a)
     integer,dimension(:)::a
    end subroutine
    real function martha(a)
     real,dimension(:)::a
    end function
   end interface
   character::letter,nextletter
   integer,dimension(2)::low,upp
   integer,dimension(-1:2)::x
   integer,dimension(4:7,2:3)::y
   character(20)::line = "0123456789abcdefghij"
   x = (/2,4,8,16/)
10 print*,x(1)
   low = lbound(y)
   upp = ubound(y)
20 print*,upp(1)
   call george(x)
   read(line,'(t12,a)')letter
   nextletter = achar(iachar(letter)+1)
30 print*,nextletter
  end program
   subroutine george(a)
    integer,dimension(:)::a
    print*,a(1)
   end subroutine
   real function martha(a)
    real,dimension(:)::a
    integer::i
    real::s = 0.0
    do i = 1,size(a)
     s = s + a(i)**2
    end do
    martha = sqrt(s/size(a))
   end function

! 1. What is the output produced by statement 10?
! 2. What is the output produced by statement 20?
! 3. What is the output produced by statement 30?
! 4. What is the complete output of the program?
! 5. What comment should be included inside the code for function martha?