CREATE OR REPLACE FUNCTION problema12(
                        n NUMBER
) RETURN NUMBER IS
    resultado NUMBER:=1;
    i NUMBER;
BEGIN
    FOR i IN 1..n LOOP
        resultado:=resultado*i;
    END LOOP;
    RETURN resultado;
END;
/