число Фибоначчи (Pascal)

[Banderas123]

Здрасте. Решаю задачки, и тут пришлось решить задачу на числа Фибоначчи.

Числа 1 1 2 3 5 8 13 21 34..... Каждое из чисел, начиная с третьего, является суммой двух предыдущих.
f[1]=1 f[2]=1 f[3]=2 f[4]=3 f[5]=5 f[6]=8 ......

Я написал кож вот так:

program Birthday;
USES CRT;
var
f : array[1..10] of integer;
i, k, l : integer;
begin ClrScr;
    for i:=1 to 10 do
    begin
        k:=i-1;
        l:=i-2;
        f[i]:=f[k]+f[l];
        writeln(f[i]);
    end;
end.

Вроде все правильно записал, но оно не работает... даже сообщения о ошибки нету =(

В чем проблема? И можно записать код вот так?

f[i]:=f[i-2]+f[i-1];

[Alex Cones]

А перед последним End`ом пробовали написать ReadLn;?

[Banderas123]

Спасибо, но я не могу понять, почему мне программа выводить совсем не те числа, что надо?
Чуть поправил код

program Birthday;
USES CRT;
var
f : array[1..10] of integer;
i, k, l : integer;
begin ClrScr;
    for i:=3 to 10 do
    begin
        f[i]:=f[i-1]+f[i-2];
        writeln(f[i]);
    end;
end.

[LeBron]

Не дает ошибки? Странно. Есть обращение к несуществующему элементу - это раз (при i=1 мы обращаемся к f[-1]), и не проинициализированны начальные значения - это уже не влияет на ошибку, но влияет на результат. Если первым 2 элементам присвоить 1 и начинать дальше заполнять с 3его, то должно работать.

[ОДИНОЧЕСТВО В СЕТИ]

вот сравните со своей! найдите отличия

program Fib; 
 var n:byte;
function F(k:byte):word; 
begin 
 if k<2 then F:=1 else F:=F(k-1)+F(k-2);
end; 
begin 
 for n:=1 to 10 do; 
 writeln(F(n)); 
 readln 
end.

[Daramant]

Ты забыл проинициализировать начальные значения.

program Birthday;
USES CRT;
var
f : array[1..10] of integer;
i, k, l : integer;
begin ClrScr;
    f[1] := 1;
    f[2] := 1;
    for i:=3 to 10 do
    begin
        f[i]:=f[i-1]+f[i-2];
        writeln(f[i]);
    end;
end.

[Banderas123]

Спасибо, сейчас буду пробовать.. =)