Bilangan Fibonaci

program fibonacci;

uses wincrt;

var n,i:integer;

 sum:longint;

function deret(x:integer):longint;

begin

if(x=1) or (x=2) then deret:=1 else deret:=deret(x-1)+deret(x-2);

end;

{program utama}

begin

write('masukkan jumlah deret yang akan dibuat = ');readln(n);

writeln('============================================');

writeln;

if n<=0 then writeln('cacah deret harus >0')

else

for i:=1 to n do

    begin

    write(deret(i),' ');

    sum:= sum+deret (i);

    end;

writeln;

writeln;

writeln('total deret ', n ,'deret fibbonacci=',sum);

end.