DECLARE

      n_maxlen  number := 30;

    BEGIN

      for i in 1..n_maxlen - length(to_char(sysdate,'mm/dd/yyyy')) + 1

      loop

        DBMS_OUTPUT.PUT_LINE('The date is: ' || lpad(rpad(to_char(sysdate,'mm/dd/yyyy'),n_maxlen-i+1,'*'),30,'*'));

      end loop;

    END;

/

The date is: 12/17/2020********************

The date is: *12/17/2020*******************

The date is: **12/17/2020******************

The date is: ***12/17/2020*****************

The date is: ****12/17/2020****************

The date is: *****12/17/2020***************

The date is: ******12/17/2020**************

The date is: *******12/17/2020*************

The date is: ********12/17/2020************

The date is: *********12/17/2020***********

The date is: **********12/17/2020**********

The date is: ***********12/17/2020*********

The date is: ************12/17/2020********

The date is: *************12/17/2020*******

The date is: **************12/17/2020******

The date is: ***************12/17/2020*****

The date is: ****************12/17/2020****

The date is: *****************12/17/2020***

The date is: ******************12/17/2020**

The date is: *******************12/17/2020*

The date is: ********************12/17/2020

PL/SQL procedure successfully completed.