友達に教えてもらった例題：

program reidai
read*, k
do
if (k+1) exit
k=k-1
print*, 'k=', k
enddo
k=100
do while (k-3)
k=k-2
print*, 'k : ', k
if (k+5) cycle
enddo
if (k) stop
end