DECLARE
input_number NUMBER := &Enter_Number; -- User will input the number
rev_number NUMBER := 0; -- variable to store reverse number
temp NUMBER; -- variable to store temp number
rem NUMBER; -- variable to store remainder number
BEGIN
temp := input_number;
-- reverse the digits of number
WHILE temp > 0 LOOP
remainder := MOD(temp, 10); -- Get the last digit
rev_number := (rev_number * 10) + rem; -- Build the reversed number
temp_number := FLOOR(temp_number / 10); -- Remove the last digit from the number
END LOOP;
-- Print input and reversed numbers
DBMS_OUTPUT.PUT_LINE('Input Number: ' || input_number);
DBMS_OUTPUT.PUT_LINE('Reversed Number: ' || rev_number);
-- Check if input number is equal to the reversed number
IF input_number = rev_number THEN
DBMS_OUTPUT.PUT_LINE('The number is a palindrome.');
ELSE
DBMS_OUTPUT.PUT_LINE('The number is not a palindrome.');
END IF;
END;
/