Program Deret Bilangan Fibonacci menggunakan Delphi 7

Pseudo Code:


var  p,c,d,b,g,e : integer;
begin
  p:=StrToInt(edit1.Text);
  g:=0;
  c:=1;
  d:=0;
  e:=1;
  while d < p do
  begin
     g:=g+c;
     listbox1.Items.Add('bilangan fibonacci ke '+ IntToSTr(e)+' = '+IntToStr(g));
     c:=g-c;
     d:=d+1;
     e:=e+1;
  end;
end;