PL SQL

Pregunta 1 - Certamen 1

DECLARE
   i number(3);
   j number(3);
function es_primo(p int) return boolean
is
BEGIN
	FOR k in reverse 2..(p-1) LOOP
		IF mod(p, k) = 0 THEN
			RETURN false;
		END IF;
	END LOOP;
	RETURN true;
END;
BEGIN
   i:=2;
   LOOP
     IF ES_PRIMO(i) then
     dbms_output.put_line(i||' es primo');
     END IF;
   exit when i=50;
   I:= I+1;
   END LOOP;
END;
/