Berikut adalah cara untuk membuat program bilangan Fibonaci :
program fibonaci1;
uses wincrt;
var
x:array[0..100]of longint;
i,n:integer;
begin
x[1]:=1;
x[0]:=0;
write(' Masukkan banyaknya bilangan fibonaci = ');readln(n);{meginputkan banyaknya bilangan}
for i:=1 to n do {mengulang sampai n kali}
begin
x[i+1]:=x[i]+x[i-1]; {nilai x berikutnya adalah hasil penjumlahan 2 nilai sebelumnya}
writeln(x[i-1]); {menampilkan nilai-nilai x}
end;
readln;
end.
