谁能告诉我几种判断回文数的数学方法

程序如下：
program huiwenshu;
var x,z,c:string;
i,j,k,m,y:integer;
n,l:longint;
begin
read(n);
repeat
k:=k+1;
if k<>1 then begin write(n,'+',l,'=');
writeln(n+l); end;
n:=n+l;
str(n,x);
m:=length(x);
for m:=m downto 1 do
begin
z:=x[m];
c:=c+z;
end;
val(c,l,y);
val(x,n,y);
c:='';
until n=l;
end.
规则为：
"回文数"是一种数字.如:98789, 这个数字正读是98789,倒读也是98789,正读倒读一样,所以这个数字
就是回文数.
任意某一个数通过以下方式相加也可得到
如：29+92=121 还有 194+491=685，586+685=1271，1271+1721=2992
不过很多数还没有发现此类特征（比如196,下面会讲到）
另外个别平方数是回文数
1的平方=1
11的平方=121
111的平方=12321
1111的平方=1234321
。
。
。
。
依次类推
3×51=153
6×21=126
4307×62=267034
9×7×533=33579
上面这些算式,等号左边是两个(或三个)因数相乘,右边是它们的乘积。如果把每个算式中的“×”和“=”去掉，那么，它们都变成回文数，所以，我们不