!
     PROGRAM P48
!
!
     IMPLICIT NONE
     INTEGER :: TRY,DIV
!
     PRINT *,2
L1:  DO TRY= 3,31,2
L2:     DO DIV= 3,TRY,2
          IF( MOD(TRY,DIV) == 0) THEN
            EXIT
          END IF
        END DO L2
     IF( MOD(TRY,DIV) /= 0 ) PRINT *,TRY
     END DO L1
     STOP
     END PROGRAM P48