program c3p1

      implicit none

      real x,y
      integer i

      x = 2
      go to 20
 30   x = 3

 20   print *, x
c      go to 30

      print *, 'Enter x'
      read *, x

      if (x .gt. 20) print *, 'x > 20!'

      if (x .ge. 30) then
         print *, 'x >= 30'
      else
         print *, 'x < 30'
      end if
      
      print *, 'Enter y'
      read *, y

      if (2.0*x .gt. y/3.0 .and. y .le. 24) print *, 'Good job' 

      if (x .gt. 16 .or. y .le. 24) print *, 'x>16 or y<24' 

      print *, 'Enter i'
      read *, i

      if ((x .gt. 16 .or. y .le. 24) .and. i .eq. 6) then
         print *, 'All conditions met'
      else
         print *, 'Not all conditions met'
      end if

      print *, 'Enter grade percentage'
      read *, x

      if (x .gt. 90) then
         print *, 'Grade = A'
      else if (x .gt. 80) then
         print *, 'Grade = B'
      else if (x .gt. 70) then
         print *, 'Grade = C'
      else if (x .gt. 60) then
         print *, 'Grade = D'
      else
         print *, 'F'
      end if
         

      end