Ｆｏｒｔｒａｎ教室

go to 文番号で、文番号のある行に飛ぶ。

200   write(*,*)'偶数を入力してください。'
      read(*,*)k
      if(mod(k,2).eq.0)then 
      	go to 100
      else
      	go to 200
      end if
100   write(*,*)'OK'
      stop
      end