with Text_IO, Ada.Integer_Text_IO;
use Text_IO, Ada.Integer_Text_IO;

procedure fibo is

 function Fib1(N : Integer) return Integer is
  begin
     if (N<2) then return 1;
       else return (Fib1(N-1) + Fib1(N-2));
     end if;
 end Fib1;

begin
   Put("fib(30)="); Put(Fib1(30),Width=>4); New_Line;
end;