Liczby Fibonacciego

Algorytm rekurencyjny
program Fibonacci;
uses crt;
var n:integer;
function FibonacciRek(n:integer):longint;
begin
  if n<3 then FibonacciRek:=1
  else FibonacciRek:=FibonacciRek(n-2)+FibonacciRek(n-1);
end;
begin
  clrscr;
  for n:=1 to 10 writeln(FibonacciRek(n));
  readln;
end.