palindrome program sample

[prodadmin]

here you go kanthbethi..I am not able to post in your question ..don't know why ..hope this works..

create procedure palin(a varchar2) is
r vachar2(30);
ans varchar2(30);
s varchar2(30);
n number;
begin
r:=a;
n:=length(r);
for i in 1 ..n loop
ans:=substr(r,-I,1);
s:=s||ans;
if i=n then
dbms_output.put_line(s);
end of;
exit i=n;
end loop;
end reverse;