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;