Napisz (w dowolnym języku) algorytm do wyznaczenia ciągu Fibonacciego.

Turbo pascal
program fibonacci;
function fib_iter(liczba: longint): longint;
var f0,f1,f,i: longint;
begin
f0:=0; f1:=1; { wartosci pierwszych elementow ciagu }
case liczba of
    1: fib_iter:=0;
    2: fib_iter:=1;
    else
    begin
        for i:=3 to liczba do
            begin
            f:=f0+f1;
            f0:=f1;
            f1:=f;
            end;
         fib_iter:=f;
    end;
end;
end;
var i: integer;
begin
for i:=1 to 24 do writeln(fib_iter(i):5);
readln;
end.