PROJECT BILANGAN FIBONACCI DELPHI 7

........FIBONACCI..........

procedure TForm1.Button1Click(Sender: TObject);
Var i,n,a,b,c:Integer;
begin
   n:=StrToInt(Edit1.Text);
   a:=1;
   b:=1;
   ListBox1.Items.Add('Bil.Fibonacci ke-1=1');
   ListBox1.Items.Add('Bil.Fibonacci ke-2=1');
   for i:=3 to n do
   begin
   c:=a+b;
   ListBox1.Items.Add('Bil.Fibonacci ke-'+IntToStr(i)+'='+IntToStr(c));
   a:=b;
   b:=c;
   end;
end;


END.