[Pascal] n Deret Fibonacci

uses crt;

var
 N, i : integer;

function fibo(n:integer):integer;
var
 A : array[1..100] of integer;
 i : integer;
begin
 for i:=1 to n do
    begin
     if (i=1) or (i=2) then
        begin
         A[i]:=1;
        end else
        begin
         A[i]:=A[i-1]+A[i-2];
        end;
    end;
    fibo:=A[i];
end;

{main program}
begin
 clrscr;
    write('Masukan N  = ');
 read(N);
    write('Deret Fibo = ');
    for i:=1 to N do
    begin
     write(fibo(i),' ');
    end;
end.

Jangan Lupa Komentar Yaa..