создание программ с использованием циклов

[tracer]

Дано натуральное число n. Необходимо получить последовательность Фиббоначи с n чисел: каждое последующее число равно сумме двух предыдущих чисел.

[Swarog]

function Fibona44i(n: byte): double;
begin
  if ((n=1)or(n=2)) then
    Result := 1
  else
    // двойной рекурсивный вызов:
    // память расходуется катастрофически
    Result := Fibona44i(n-1)+Fibona44i(n-2);
end;

[Swarog]

lastv := 1;
lastlastv := 1;
if n >= 1 then writeln (1);
if n >= 2 then writeln (1);
for i := 3 to n do
 begin
  lastlastv := lastv;
  lasv := lastlastv + lastv;
  writeln(lastv);
 end

[tracer]

спасибо большое