create or replace procedure fibnoci(ran in out integer)
Is 
 temp integer:=0;
  num1 integer:=0;
  num2 integer:=1;
   i integer;
begin 
   dbms_output.put_line(num1);
  dbms_output.put_line(num2);
   for i in 1 .. (ran-2)
      loop
         
         temp:=num1+num2;
         num1:=num2;
         num2:=temp;
       dbms_output.put_line(temp);
         
    end loop;
end;
/
declare 
  a integer:=&a;
begin 
  fibnoci(a);
end;
/