palindrom sql

/* plaindom number*/
DECLARE
    ans NUMBER;
    no1 NUMBER :=2112;
    no2 NUMBER ;
    rev NUMBER :=0;
BEGIN
    DBMS_OUTPUT.put_line('no => ' || no1);
    no2:=no1;
    WHILE(no2>0) LOOP
    ans:=MOD(no2,10);
    rev:=(rev*10)+ans;
    no2:=FLOOR(no2/10);
    END LOOP;

    IF(rev=no1) THEN
        DBMS_OUTPUT.put_line( rev|| ' is palindrom number');
    END IF;
END;