Cálculo de array estático da série de Fibonacci

{ Calculo da Serie de Fibonacci em array estatico }
{ Joao Paulo Schwarz Schuler }
{ http://www.schulers.com/jpss }
const csMaxFib = 46;
var SerieFib:array[0..csMaxFib] of longint;
    I:longint;
begin
SerieFib[0]:=0;
SerieFib[1]:=1;
for I:=2 to csMaxFib do
    SerieFib[I]:=SerieFib[I-1]+SerieFib[I-2];
end.