CREATE OR REPLACE PROCEDURE problema8 IS
    num1 NUMBER:=1;
    num2 NUMBER:=1;
    actual NUMBER;
    i NUMBER;
BEGIN
    DBMS_OUTPUT.put_line(num1);
    DBMS_OUTPUT.put_line(num2);
    --
    FOR i IN 1..18 LOOP
        actual:=num1+num2;
        DBMS_OUTPUT.put_line(actual);
        num1:=num2;
        num2:=actual;
    END LOOP;
    --
END;
/
EXECUTE problema8;