Un pò di conigli...

LA SUCCESSIONE DI FIBONACCI..
una coppia di conigli
dopo un mese-->2 coppie
dopo un mese-->3 coppie
dopo un mese-->5 coppie
si ha la seguente successione: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377
ogni numero è la somma dei 2 seguenti..es.21+34=55

Il programma è il seguente:
FIBONA.PAS
program conigli;
var n:integer;
function fib(n:integer):integer;
begin
fib:=1;
if n>1 then fib:=(n-1)+fib(n-2);
end;
begin
for n:=0 to 13 do write (fib(n):5);readln;
end.