Deret Bilangin Fibonaci

  Program deret_fibonacci;
   uses wincrt;
   var x:array[1..100] of integer;
       i,n,jumSuku:integer;
       lagi:char;

   function fibo(n:integer):integer;
     begin
       if (n<=2) then
       fibo:=1
       else
       fibo:=fibo(n-1)+fibo(n-2);
     end;

   begin
    jumSuku:=0;
    write('Masukkan suku fibonacci: ');readln(n);
    write('deret Fibonacci: ');
    for i:= 1 to n do
        begin
          write(fibo(i):4);
          JumSuku:= jumSuku + fibo(i);
        end;
        writeln;
        writeln('Suku ke-', n,' =', fibo(n));
        writeln('jumlah semua suku fibo: ',jumSuku);
   end.