DO 10 I=1,10,2
      K=I+2
      IF(I+2.GT.10) K=10
  10  CONTINUE
      WRITE(6,100)K
  100 FORMAT(1H ,I5)
      END