10 .Pl/SQL Program for Palindrome Number

 use dbms;
drop procedure palindrome;
 select * from cse;
    DELIMITER &&
    CREATE procedure palindrome(IN `c` INT )
    BEGIN
        declare i int;
        declare rev int;
        declare copy int;
        set rev=0;
        set i=c;
        set copy = i;
        while i>0 do 
        
        set rev=(rev*10)+i%10;
        set i = floor(i/10);
            
        end while;
            if (rev=copy) then
            select 'It is palindrome.';
            else 
            select 'It is not palindrome.';
            end if;
        
    END &&
    DELIMITER ;

 CALL palindrome(31213);