clear
accept "请输入一个字符串:" to sl
for i=1 to int(len(sl)/2)
if substr (sl,i,1)<> substr(sl,len(sl)-i,1)
loop
endif
endfor
if i>int(len(sl)/2)
?" "+sl+"是回文。"
else
?" "+sl+"不是回文。"
endif
return
这个哪里错了呢？

图片来自：lygcw9602的百度相册