FIBONACCI

uses wincrt;

var
a:array[1..100] of real;
i,n:integer;

begin
write ( 'Masukkan suku keberapa deret fibonacci: ');readln(n);
a[1]:=1;
a[2]:=1;

for i:=2 to n do
a[i+1]:=a[i]+a[i-1];
for i:=1 to n do
write (a[i]:2:0,' ');


end.