DECLARE
 NAME VARCHAR2(30):='&NAME';
 X VARCHAR2(30);
 Y NUMBER;
 Z NUMBER;
 BEGIN
   Z := LENGTH(NAME);
   Y := LENGTH(NAME);
   WHILE Y>0 LOOP
    X := X||SUBSTR(NAME,Y,1);
 Y := Y-1;
 END LOOP;
 DBMS_OUTPUT.PUT_LINE('LENGTH OF STRING IS :'||Z);
 DBMS_OUTPUT.PUT_LINE('THE REVERSE NAME IS :'||X);
  END;
/
