Deret Fibonaci dengan Delphi atau Pascal

Assalamualaikum Wr. Wb.
Selamat sore kawand-kawand blogger,,,
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

Dalam matematika, bilangan Fibonacci adalah barisan yang didefinisikan secara rekursif sebagai berikut:

Penjelasan: barisan ini berawal dari 0 dan 1, kemudian angka berikutnya didapat dengan cara menambahkan kedua bilangan yang berurutan sebelumnya. Dengan aturan ini, maka barisan bilangan Fibonaccci yang pertama adalah:
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946...

Barisan bilangan Fibonacci dapat dinyatakan sebagai berikut:

F(n)= (X1^n - X2^n) / sqrt(5) 

dengan
Fn adalah bilangan Fibonacci ke-n
X1 dan X2 adalah penyelesaian persamaan X^2 – X – 1 = 0.

Perbandingan antara Fn+1 dengan Fn hampir selalu sama untuk sebarang nilai n dan mulai nilai n tertentu, perbandingan ini nilainya tetap. Perbandingan itu disebut rasio emas yang nilainya mendekati 1,618. (Wikipedia)

Oke langsung saja syntax programnya bisa dilihat dibawah ini:

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
i,j,k,l,m : integer ;

begin
write('masukkan Jumlah bilangan : ');readln(l);
k:=1;
m:=0;
for i:=1 to l do
    begin
    writeln(k,'');
    j:=k+m;
    m:=k;
    k:=j;
    end;
readln;

end. 

Demikian Postingannya,
Semoga bermanfaat,,
Have Fun gan :D