SET SERVEROUTPUT ON

--DECLARE
--    n NUMBER := 127;-- n Number := &n;
--
--BEGIN
--    IF n mod 2 = 0
--    THEN
--        DBMS_OUTPUT.PUT_LINE('The number ' || TO_CHAR(n) || ' is even.');
--    ELSE
--        DBMS_OUTPUT.PUT_LINE('The number ' || TO_CHAR(n) || ' is odd.');
--    END IF;
--END;
--/

--declare
--    n1 NUMBER :=120;
--    n2 NUMBER :=500;
--    n3 NUMBER :=400;
--begin
--    if (n1 > n2 and n1 > n3)
--    then
--        DBMS_OUTPUT.PUT_LINE('The number ' || TO_CHAR(n1) || ' is the greatest one.');
--    elsif (n2 > n1 and n2 > n3)
--    then
--        DBMS_OUTPUT.PUT_LINE('The number ' || TO_CHAR(n2) || ' is the greatest one.');
--    else
--        DBMS_OUTPUT.PUT_LINE('The number ' || TO_CHAR(n3) || ' is the greatest one.');
--    end if;
--end;
--/

--declare
    --n NUMBER := 2000;
--    n NUMBER := &n;
--begin
--    if (n mod 4) = 0 and (n mod 100) != 0 or (n mod 400) = 0
--    then
--        DBMS_OUTPUT.PUT_LINE('the date ' || TO_CHAR(n) || ' nagyon szökik.');
--    else
--        DBMS_OUTPUT.PUT_LINE('the date ' || TO_CHAR(n) || ' nagyon nem szökik.');
--    END IF;
--END;
--/
--osztható 4gyel nem osztható százzal vagy osztható 400zal, akkor szökőév

--declare
--    n0 number :=0;
--    n1 number :=1;
--    n number := &n;
--    n2 number :=n1+n0;
--begin
--    for i in 0..n
--    loop
--    n2 := n0+n1;
--   n0 := n1;
--    n1 := n2;
--    DBMS_OUTPUT.PUT_LINE('the number ' || TO_CHAR(n2) || ' asdad.');
--    end loop;
--end;

declare
    n number := &n;
    van number :=0;

begin
    for i in 2..sqrt(n)
    loop
        if (n mod i) = 0
        then
            van := van + 1;
        end if;
    end loop;
        if van > 0 then
        DBMS_OUTPUT.PUT_LINE('the number ' || TO_CHAR(n) || ' nem prim.');
    else
        DBMS_OUTPUT.PUT_LINE('the number ' || TO_CHAR(n) || ' prim.');
    end if;
end;