bueno despues de largo rato halle la solucion :
aqui está para los que necesiten
CREATE OR REPLACE FUNCTION PRIMO(N NUMBER)
RETURN VARCHAR2 AS VAR VARCHAR2(20);
BEGIN
FOR I IN 2..N-1 LOOP
IF MOD(N,I)=0 THEN VAR:='NO ES PRIMO';
GOTO paso1;
ELSE VAR:='ES PRIMO';
END IF;
END LOOP;
<<paso1>>
RETURN VAR;
END;
/