WRITE A PLSQL PROGRAM CHECK GIVEN NUMBER IS PALINDROME OR NOT?

DECLARE
N NUMBER:=&N;
R NUMBER;
S NUMBER:=0;
M NUMBER;
BEGIN
M:=N;
WHILE(N!=0) LOOP
R:=MOD(N,10);
S:=(S*10)+R;
N:=FLOOR(N/10);
END LOOP;
IF (S=M) THEN
DBMS_OUTPUT.PUT_LINE('GIVEN NUMBER IS PALINDROME');
ELSE
DBMS_OUTPUT.PUT_LINE('GIVEN NUMBER IS NOT A PALINDROME');
END IF;
END;