ترجمه تابع ++C به Delphi

[123s0ran]

int fib2 (int n)
{
index i;
int f [0..n];
f[0] = 0;
if (n > 0) {
f[1] = 1;
for (i = 2 ; I <= n; i++)
f[i] = f [i -1] + f [i -2];
}
return f[n];
}
سلام دوستان و اساتید گرامی...
دوستان گرامی کسی هست معادل کد بالا که با زبان سی نوشته شده برای دلفی واسم بزاره؟

[Ananas]

سلام.

function fib2(n : Integer):Integer;
var
i : Integer;
f : array of Integer;
begin
SetLength(f, n + 1);
f[0] := 0;
if (n > 0) then
begin
f[1] = 1;
for i := 2 to n do
f[i] := f[i - 1] + f[i - 2];
end;
Result := f[n]
end;