Berikut ini adalah Program untuk Menuliskan Bilangan Fibonaci :
uses wincrt;
var F : array [1..100] of integer;
a1,i,y :integer;
label baca;
begin
baca:
y:=35 div 6;
write('jika ditampilkan', y);
writeln('Barisan Bilangan Fibonanci');
write('Banyaknya suku barisan, a1 <=23 : ');
readln(a1);
if (a1<3) or (a1>23) then goto baca;
F[1]:=1;F[2]:=1;
for i:=3 to a1 do F[i]:=F[i-1]+F[i-2];
for i:=1 to a1 do
begin
write(F[i]:6);
if i mod 10 = 0 then writeln;
end;
readln;
end.
