Deret Fibbonaci

Deret Fibbonaci

program fibonacci;
uses crt;
var
   n:integer;
   i:integer;
   deret:array[1..100] of real;

begin
    {deret fibonacci adalah deret yang merupakan hasil penjumlahan 2 bilangan sebelumnya}
     clrscr;
     write('Masukan jumlah deret :');
     readln(n);
     writeln;
     for i := 0 to n-1 do
     begin
          if (i = 0) or (i = 1) then
             begin
                  deret[i]:=1;
                  write(deret[i]:1:0,' ');
             end
          else
              begin
                   deret[i]:=deret[i-1]+deret[i-2];
                   write(deret[i]:1:0, ' ');
              end;
     end;
     readln;
end.