PL SQL Program For adam or not.

PL SQL Program For adam or not. 


CODE:
declare
n number(3);
t1 number(3):=0;
t2 number(3);
s number(3):=0;
revn number(3):=0;
t number(3);
begin
n:=&n;
t:=n;
while(t>0) loop
revn:=(revn*10)+(t mod 10);
t:=trunc(t/10);
end loop; 
dbms_output.put_line('Reversal of the number is ' ||revn);
t1:=n*n;
t2:=revn*revn;
t:=t2;
while(t>0) loop
s:=(s*10)+(t mod 10);
t:=trunc(t/10);
end loop; 
if(s=t1) then 
dbms_output.put_line('The Given Number ' || n || ' is an Adam Number');
else dbms_output.put_line('The Given Number ' || n || ' is not an Adam Number');
end if;
end;