SQL>ed prime.sql
Declare
N number:=&n;
I number:=2;
R number(3):=0;
Begin
While(i<=n/2)
Loop
R:=mod(n,i);
If r=0 then
Exit;
End if;
I:=i
1;
End loop;
If r=1 then
Dbms_output.put_line(‘prime’);
else
dbms_output.put_line(‘not prime’);
end if;
end;
/
SQL>@ prime;