for循环输出三角形

DECLARE
LENTH INT;
BEGIN
LENTH := 12;
FOR LEVEL IN 1 .. TRUNC(LENTH / 2) + 1 LOOP
DBMS_OUTPUT.PUT_LINE(LPAD(' ', TRUNC(LENTH / 2) - (LEVEL - 1), ' ') ||
LPAD('*', 1 + (LEVEL - 1) * 2, '*'));
END LOOP;
END;