create or replace procedure rev(n in out integer,di in out integer,rn in out integer)
is
 
begin
 
while n !=0 loop
di:=n mod 10;
rn:=rn*10+di;
n:=trunc(n/10);
end loop;
end;
/



declare
 a integer :=&a;
b integer:=0 ;
c integer:=0;
begin
 
rev(a,c,b);
dbms_output.put_line(b);
end;
/