PROJECT MENGURUTKAN KELIPATAN A KURANG DARI B (DELPHI 7)

............URUT KELIPATAN A KURANG DARI B.........

procedure TForm1.Button1Click(Sender: TObject);
var a,b,i:integer;
begin
   a:=strtoint(edit1.text);
   b:=strtoint(edit2.text);
   i:=0;

   while i<b-a do
   begin
   with listbox1.items do
   i:=i+a;
   listbox1.Items.add(inttostr(i));
   end;
end;

end.