关于鸡兔同笼问题的visual foxpro 的程序设计

SET TALK OFF
CLEA
CLEA ALL
INPUT "笼子里鸡和兔的总头数：" TO h
INPUT "笼子里鸡和兔的总脚数：" TO F
Y=(F-2*h)/2
x=(4*h-F)/2
IF Y<0 OR x<0
? "数据有错，不能作为鸡兔同笼问题！"
RETU
ENDIF
heads=h
feets=F
FOR x=0 TO heads
IF 2*x+4*( heads -x)=feets
? "笼里的鸡和兔共有" ;
+ALLT(STR(heads))
?? "个头，共有"
?? ALLT(STR(feets))+"只脚。"
? " 其中，鸡有" ;
+ALLT(STR(x))+"只"
?? "， 兔有"
?? +ALLT(STR(heads-x)) +"只"
ENDIF
ENDFOR
RETU

请教老师

请老师