DECLARE
    nama VARCHAR2(40) := '&NAMA';
    i NUMBER := 1;
    panjang NUMBER := LENGTH(nama);
    j NUMBER := i;
BEGIN
    WHILE i <= panjang LOOP
        WHILE j <= i LOOP
            DBMS_OUTPUT.put(' ');
            j := j + 1;
        END LOOP;
        j := 1;
        DBMS_OUTPUT.put_line(SUBSTR(nama, i, 1));
        i := i + 1;
    END LOOP;
END;
/

DECLARE
    angka NUMBER := '&Angka';
    i NUMBER := TRUNC(angka/5) + 1;
    p NUMBER := 64;
    a NUMBER := 1;
    j NUMBER;
BEGIN
    WHILE a < i LOOP
        IF MOD(a,2) = 1 THEN
            FOR j IN 1..5 LOOP
                p := p + 1;
                DBMS_OUTPUT.put( CHR(p) || ' ');
            END LOOP;
            DBMS_OUTPUT.new_line;
        ELSE
            p := p + 5;
            j := 1;
            WHILE j <= 5 LOOP
                DBMS_OUTPUT.put( CHR(p) || ' ');
                p := p - 1;
                j := j + 1;
            END LOOP;
            p := p + 5;
            DBMS_OUTPUT.new_line;
        END IF;
        a := a + 1;
    END LOOP;
    DBMS_OUTPUT.new_line;
END;
/