Program ex0503
implicit none
integer :: i
integer, parameter :: n=10
do i = 1, n
 if (i = = 4) cycle
 write(*, "(I3)")I
end do
stop
end program ex0503