Program Kelipatan Bilangan Bulat K antara a sampai b menggunakan Delphi 7

Pseudo Code:


var a,b,k,i : integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  k:=strtoint(edit3.Text);

  for i:=a to b do
  if i mod k = 0 then
  begin
     listbox1.Items.add(inttostr(i));
  end;
end;

Semoga Bermanfaat :)