Help!Помогите решить,можно ответ просто,но если не сложно - объясните.
Заранее огромное спасибо!

! ForTran 95program for_helpimplicit none  integer :: x, y  read *, x, y    do while(x<16)    if (x>y) then      x = x - 2      y = y + 4    else      x = x + 5      y = y - 3    end if        print *, x, y  end doend program for_helpx = 3, y = 16x|y3 168 1313 1011 14-------16 11x|y7 912 610 1015 713 1111 15--------16 12