Berikut adalah Source Code Program Deret Fibonacci dalam Bahasa Pascal.

Data arsip dari Die Coding, silakan digunakan dan diubah sesuka hati, semoga bermanfaat.

program fibonacci;
uses crt;

var
	a, b, c : real;
	x, i : integer;

begin
	clrscr;
	writeln (' ------------------------------------------ ');
	writeln ('|                                          |');
	writeln ('|           source: diecoding.com          |');
	writeln ('|                                          |');
	writeln (' ------------------------------------------ ');
	writeln;
	write ('Silakan tekan enter untuk melanjutkan..');
	readkey;
	while not eof do begin
		clrscr;
		writeln (' ---------------------------- ');
		writeln ('|      PROGAM FIBONACCI      |');
		writeln (' ---------------------------- ');
		writeln;writeln;
		write ('Tampilkan Jumlah Deret : '); readln (x);
		writeln;
		if x < 1 then
			writeln ('Input Error')
		else begin
			write ('Deretnya : ');
			a := 0;
			b := 1;
			c := 0;
			for i := 1 to x do begin
				c := a + c;
				a := b;
				b := c;
				write (c:0:0, ' ');
			end;
		end;
		readkey;
	end;
end.