PL QUE CALCULA O FATORIAL DE UM NUMERO QUALQUER USANDO LOOP

declare
va_num number(10) := &Numero;
va_fatorial number(10) := va_num;
begin
loop
exit when va_num = 1;
va_num := va_num - 1;
va_fatorial := va_num * va_fatorial;
end loop;
dbms_output.put_line(va_fatorial);
end;