Pl/SQl program Of Pallindrom using while Loop

declare
n integer;
revint integer;
rem integer;
orignal_num integer;

begin
  revint:=0;
  dbms_output.put_line('Enter a number');
  n:=&enter;
  orignal_num:= n;
  while n!= 0 loop
    rem:=MOD(n,10);
    revint:=revint*10 + rem;
    n:=n/10;
  end loop;
  if orignal_num=revint then
  dbms_output.put_line('Number is in pallindrom');
  else
  dbms_output.put_line('Number is not in pallindrom'); 
  end if;
end;