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