Cara Membuat Program Deret Fibbonancci dengan Menggunakan Pascal

Pada artikel kali ini saya kembali membuat program untuk menampilkan deret fibbonacci dengan menggunakan pascal. langsung aja kita liat listingnya :

uses crt;
var
x,y,z:integer;
fibo:array[1..100]of integer;
begin
clrscr;
write(�masukan banyak deret: �);
readln(x);
clrscr;
writeln(�deret fibonacci: �);
for y:=1 to x do
begin
if y<3 then
begin
fibo[y]:=1;
end
else
begin
fibo[y]:=fibo[y-1]+fibo[y-2];
end;
write(fibo[y],�  �);
end;
readln();
end.


* * *