function

CREATE OR REPLACE FUNCTION FUN1(F NUMBER)
RETURN NUMBER
IS
FAC NUMBER(7);
BEGIN
FAC:=1;
FOR I IN 1..F
LOOP
FAC:=FAC*I;
END LOOP;
END FUN1;