判断是否为回文数，若是回文数则返回true，若不是回文数则返回false：

  ②判断是否为回文数，若是回文数则返回true，若不是回文数则返回false：

function huiwen(n:longint):boolean;

  var

    m,i,j:longint;

    a:array[1..10] of integer;

  begin

    if n<0 then begin huiwen:=false; exit;   end;

    m:=n;   i:=0;   huiwen:=true;

    repeat

      i:=i+1;

      a[i]:=m mod 10;

      m:=m div 10;

    until m=0;

    for j:=1 to (i div 2) do

      if a[j]<>a[i-j+1] then

      begin huiwen:=false;   exit;   end;

  end;