DECLARE
v_koniec CONSTANT INTEGER := &koniec;
licznik INTEGER := 1;
licznik_p INTEGER :=1;
BEGIN
DBMS_OUTPUT.PUT_LINE('Liczby pierwsze do ' || v_koniec || ': ');

FOR licznik IN 1 .. v_koniec LOOP
licznik_p := 1;
FOR licznik_p IN 1 .. licznik LOOP

IF (licznik = licznik_p) THEN
DBMS_OUTPUT.PUT_LINE(licznik);
EXIT;
END IF;

IF(licznik mod licznik_p = 0 AND licznik_p > 1) THEN
EXIT;
END IF;

END LOOP;
END LOOP;
END;