检查 PL/SQL 中的数字是否为回文

DECLARE
   n number;
   m number;
   temp number:=0;
   rem number;
BEGIN
   n :=1两3两1;
   m :=n;
   while n>0
   loop
      rem := mod(n,10);
      temp := (temp*10)+rem;
      n := trunc(n/10);
   end loop;
   if m = temp
   then
      dbms_output.put_line('Palindrome');
   else
      dbms_output.put_line('Not Palindrome');
   end if;
END;

Palindrome