Рекурсия: нахождение n-го члена последовательности Фибоначчи

var n,i:integer;
function fib(n:byte):longint;
begin
if (n=1) or (n=2) then fib:=1 else
fib:=fib(n-1)+fib(n-2);
end;
begin
read(n);
for i:=1 to n do
writeln(fib(i));
end.

uses crt;
procedure Factorization(a:longint;var n:byte);
var  b:boolean;
begin
n:=2;
while a>0 do
 begin
  b:=true;
  while n <= round(sqrt(a)) do
   begin
    if a mod n=0 then
     begin
      write(n,' ');
      a:=a div n;
      b:=false;
      break;
     end;4
    inc(n);
   end;
  if b then
   begin
    write(a);
    break;
   end;
 end;
end;
var p:Longint;
    k:byte;
begin
clrscr;
write('p=');readln(p);
Factorization(p,k);
readln
end.

uses crt;
var a,n:Longint;
    b:boolean;
begin
clrscr;
write('a=');readln(a);//вводим число
n:=2;//первый простой делитель=2
while a>0 do//пока число не ноль
 begin
  b:=true;//считаем что оно простое и делителей кроме себя нет
  while n <= round(sqrt(a)) do//пока числа меньше корня из числа(дальше нет делителей)
   begin
    if a mod n=0 then//если делится, то это простой делитель, на кратные мы уже поделили
     begin
      write(n,' ');//выводим его
      a:=a div n;//делим число на него, пока делится, сокращаем
      b:=false;//больше не делится
      break;//заканчиваем цикл
     end;
    inc(n);//к следующему
   end;
  if b then//если остаток простое число
   begin
    write(a);//выводим его
    break;//больше не проверяем
   end;
 end;
readln
end.

program prostye;
uses crt;
var n,k,i:longint;
    fl:boolean;
begin
 readln(n);
 fl:=false;
 for i:=2 to round(sqrt(n)) do
 begin
  k:=0;
  while n mod i=0 do
  begin
   k:=k+1;
   n:=n div i;
  end;
  if fl and (k>0) then write('*');
  if k>1 then
  begin
   write(i,'^',k);
   fl:=true;
  end else if k=1 then
  begin
   write(i);
   fl:=true;
  end;
 end;
 if n>1 then
 begin
  if fl then write('*');
  write(n);
 end;
 readln;
end.

program Fibonacci;
uses crt;
var n:integer;
function Fib(n:integer):longint;
begin
if n<=2 then Fib:=1
else
Fib:=Fib(n-2)+Fib(n-1);
end;
begin
clrscr;
write('n=');readln(n);
writeln('Chis.Fib(n)=',fib(n));
readln;
end.