Задача по оператору for

[IvanKyzyl]

Помогите

Пусть а(0)=a(1)=1 и a(n)=a(n-2)+(a(n-1)/3^n). Найти а(0)*a(1)*...*a(10)

Надо на FreePascal )

[Stilet]

Примерно так:

a[0]:=1;a[1]:=1;
for n:=2 to 10 do begin
 a[n]:=a[n-2]+(a[n-1]/exp(n*ln(3));
end;

[IvanKyzyl]

А можно полный текст программы?