Program deret fibbonacci dengan Pascal

pada artikel sebelumnya saya pernah membahas tentang program untuk menampilkan deret fibbonacci dengan menggunakan bahasa Python,, nah pada artikel kali ini saya kembali membuat program untuk menampilkan deret fibbonacci dengan menggunakan pascal. langsung aja kita liat listingnya:

uses crt;

var

        x,y,z:integer;

        fibo:array[1..100]of integer;

begin

        clrscr;

        write('masukan banyak deret: ');

        readln(x);

        clrscr;

        writeln('deret fibonacci: ');

        for y:=1 to x do

        begin

                if y<3 then

                begin

                        fibo[y]:=1;

                end

                else

                begin

                        fibo[y]:=fibo[y-1]+fibo[y-2];

                end;

                write(fibo[y],'  ');

        end;

readln();

end.

output : 

untuk perbandingan, anda dapat membandingkan program yang saya buat dengan pascal ini dengan program yang saya buat dengan menggunakan Python..silakan klik disini

semoga bermanfaat,terimakasih^_^