Set serveroutput on;
declare
counter NUMBER;
n number := &n;
begin
counter := 0;
for i in 2..n LOOP
for j in 2..i LOOP
if mod(i,j)=0 then
DBMS_OUTPUT.PUT_LINE(i||’ Not a PRIME’);
COUNTER:=1;
exit;
end if;
end loop;
IF (counter = 0) THEN
DBMS_OUTPUT.PUT_LINE(i||’ PRIME’);
END IF;
end loop;
end;
/