Program Daftar N! menggunakan Delphi 7

Pseudo Code:

var a,b,i: real;
begin
   a:=StrToFloat(edit1.Text);
   b:=1;
   i:=1;

   while i <= a do
   begin
     b:=(b*i);
     ListBox1.Items.Add(FloatToStr(i)+'! = '+FloatToStr(b));
     i:=i+1;
  end;
end;

Semoga Bermanfaat :)