plsql code to find prime number

PRIME NO OR NOT

DECLARE

          no NUMBER (3) := &no;

          a NUMBER (4);

          b NUMBER (2);

BEGIN

          FOR i IN 2..no - 1

          LOOP

                    a := no MOD i;

                    IF a = 0 THEN

                               GOTO out;

                    END IF;

          END LOOP;

          <>

          IF a = 1 THEN

          DBMS_OUTPUT.PUT_LINE (no || ' is a prime number');

          ELSE

          DBMS_OUTPUT.PUT_LINE (no || ' is not a prime number');

          END IF;

END;