! ForTran 95
program for_help
implicit none
integer :: x, y
read *, x, y
do while(x<16)<br> if (x>y) then
x = x - 2
y = y + 4
else
x = x + 5
y = y - 3
end if
print *, x, y
end do
end program for_help
x = 3, y = 16
x|y
3 16
8 13
13 10
11 14
-------
16 11
x|y
7 9
12 6
10 10
15 7
13 11
11 15
--------
16 12