Фибоначчи Опции

[yar]

Вот такая задчка. Я её замутил сам, не знаю, как-то не красиво, и хочу что бы мне вы подсказали самое рациональное решение
Так вот. Дана последовательность чисел Фибоначчи (1,1,2,3,5,8,13,21, .... )
 Найти значение элемента по его номеру (например №6 - восемь)
Заранее благодарен.  ;D

[Lord_of_Dark]

AnKoR, сделай так:

{$N+}
var i, max: longint;
     a: array[0..1] of extended;
begin
readln( max );
a[1]:= 1;
a[0]:= 1;
for i:= 1 to ( max - 2 ) do if odd( i ) then a[1]:= a[1] + a[0] else a[0]:= a[1] + a[0];
write( a[max mod 2] );
readln
end.

Сам не компилил, но идти должно...