Program deret fibonanci

Yooo berikutnya ada Program Deret Fibonanci,Sebelumnya apa itu deret Fibonanci ? deret fibonanci itu deret dimana deretnya ditambah dengan angka sebelumnya contoh 1 2 3 5 8 dst .. bwat yang mau paham,saya peringatkan jangan langsung dicopi paste.. lebih baik dicoding dulu atau diketik dahulu programnya supaya lebih paham , langsung saja :

program fibbonanci_a_ke_b;
uses wincrt;
var  i,a,b:byte;
const Nama='Programer : Argo Rudi Prasetyo ';
const jurusan='Jurusan   : Teknik Informatika ';
const garis='==================================================================';
function proses (x:byte):integer;
begin
     if(x=1) or (x=2) then
         proses:=1
     else
         proses:=proses(x-2)+proses(x-1);
end;

begin
writeln(garis);writeln(nama);writeln(jurusan);writeln(garis);
writeln('           <--Wellcome in My Program-->');
writeln('<----Mencetak deret fibbonanci ke a sampai ke b---->');
writeln;
write('Masukkan nilai a = ');readln(a);        
write('Masukkan nilai b = ');readln(b);
writeln;
writeln(garis);
writeln('Inilah deret ',a,' sampai ',b,' fibbonanci yang anda inputkan :');
writeln;
for i:=a to b do
    write(proses(i):5);
    writeln;writeln;
    writeln('<--Wasalammualaikum Warohmatulohi Wabarokatuh-->');
    writeln(garis);
end.