在 PL/SQL 中，我们可以编写程序来检查一个数字是否是回文数。回文数是指无论从左往右或从右往左读取数字，得到的数字序列都是相同的。

以下是一个 PL/SQL 程序示例，用于检查一个数字是否为回文数：

CREATE OR REPLACE FUNCTION check_palindrome(num IN NUMBER) RETURN BOOLEAN IS
    str_num VARCHAR2(10) := TO_CHAR(num);
    len_num NUMBER := LENGTH(str_num);
BEGIN
    FOR i IN 1..(len_num/2) LOOP
        IF SUBSTR(str_num, i, 1) != SUBSTR(str_num, len_num-i+1, 1) THEN
            RETURN FALSE;
        END IF;
    END LOOP;

    RETURN TRUE;
END;
/

BEGIN
    IF check_palindrome(12321) THEN
        DBMS_OUTPUT.PUT_LINE('The number is a palindrome.');
    ELSIF NOT check_palindrome(12345) THEN
        DBMS_OUTPUT.PUT_LINE('The number is not a palindrome.');
    END IF;
END;
/

在上面的示例中，我们定义了一个名为 check_palindrome 的函数，它接受一个数字作为输入参数，并返回一个布尔值。函数内部，我们将数字转换为字符串，并获取其长度。然后，我们使用循环来逐个比较字符串的字符，从首尾开始进行比较。如果字符不相等，则该数字不是回文数，我们返回 FALSE。如果循环结束后所有字符都相等，则该数字是回文数，我们返回 TRUE。

在主程序中，我们调用了 check_palindrome 函数并传递了一些示例数字作为参数。然后，根据函数返回的结果，我们使用 DBMS_OUTPUT.PUT_LINE 函数输出相应的消息。

请注意，以上代码可以在 PL/SQL 开发环境中运行，并在输出窗口中显示相应的结果。

希望这个示例能够帮助你理解 PL/SQL 中如何检查数字是否为回文数。