Membuat Program Pascal untuk Barisan Fibonacci 2

program fibonaci2;
uses wincrt;
var
x,y,z,i,n:longint;
begin
x:=0; {nilai awal fibonaci = 0}
y:=1; {nilai kedua fibonaci = 1}
write(' Masukkan banyaknya bilangan fibonaci = ');readln(n); {menginputkan banyaknya bilangan fibonaci}
writeln(x); {menampilkan nilai awal fibonaci};
writeln(y); {menampilkan nilai kedua fibonaci}
for i:=1 to n-2 do {mengulang sampai n-2 karena 2 bilangan awal fibonaci telah ditampilkan}
begin
z:=x+y;{z merupakan penjumlah 2 bilangan sebelumnya yaitu x dan y}
x:=y; {nilai x kemudian diubah menjadi y}
y:=z; {nilai y kemudian diubah menjadi z(hasil penjumlah sebelumnya)}
writeln(z); {menampilkan nilai z}
end;
readln;
end.

Lihat juga edisi pertama.