PL/SQL打印等腰三角型

declare
i number ;
j number ;
k number;
len number;
begin

len := '&a';
dbms_output.put_line('打印的等腰三角型的长度：'||len);
if len < 2 then
dbms_output.put_line('输入的数字有误!');
else

for i in 1..len
loop
j :=len-i;
while j>=0
loop
dbms_output.put('!');
j :=j-1;
end loop;
for k in 1..i*2-1
loop
dbms_output.put('*');
end loop;
dbms_output.put_line('');
end loop;

end if;
end;