program bil_deret; uses wincrt; var a,b,c,d:integer; bil:array of integer; deret:arrayof integer; f1,f2:integer; begin gotoxy(25,1); writeln('Deret Bilangan Deret'); writeln; write('Masukan Bilangan Pertama : ');readln(a); write('Masukan Bilangan Kedua : ');readln(b); writeln; write('Tentukan banyaknya deret? ');readln(c); deret[1]:=a; deret[2]:=b; f1:=a; f2:=b; d:=3; while (bil[d]<=c) do begin deret[d]:=f1+f2; f1:=deret[d-1]; f2:=deret[d]; d:=d+1; end; d:=1; while (d<=c) do begin write(deret[d],' '); d:=d+1; end; end.

program Fibonacci;
{$APPTYPE CONSOLE} //---------directive aplikasi console
uses
  SysUtils;
//----------------------
var
a,b,c,d:integer;
bil:array of integer;
deret:arrayof integer;
f1,f2:integer;
//----------------------
begin
writeln('Deret Bilangan Deret');
writeln;
write('Masukan Bilangan Pertama : ');readln(a);
write('Masukan Bilangan Kedua : ');readln(b);
writeln;
write('Tentukan banyaknya deret? ');readln(c);
deret[1]:=a;
deret[2]:=b;
f1:=a;
f2:=b;
d:=3;
//----------------------
while (bil[d]<=c) do begin
deret[d]:=f1+f2;
f1:=deret[d-1];
f2:=deret[d];
d:=d+1;
end;
//----------------------
d:=1;
while (d<=c) do begin
write(deret[d],' ');
d:=d+1;
end;
readln;
end.