有FOXBASE程序如下：

SET TALK OFF

CLEAR

STORE 1 TO X

STORE2001 TO Y

DO WHILE X＜Y

IF .NOT.(INT(X/2)=X/2)

X=X^2+1

Y=Y+1

ELSE

X=X+1

ENDIF

ENDDO

X

Y

运行后X的值为 Y的值为（）。