Программа в Delphi. Произведение членов.

[SPQR]

Господа уважаемые. Нужна помощь. Хочу понять как подобные программы создаются вернее пишутся. Хотелось бы по собственно большой просьбе увидеть код и я уже по нему спрошу у вас. Заранее премного благодарен!


Найти произведение всех членов последовательных чисел в интервале от <любое число> до <любого числа>, которые кратны <любое число>до введения первого числа которое является и равным или кратным <любое число>

[Stilet]

Ну в принципе как и всегда, например так:

procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c,s,d:Integer;
begin
 s:=1;     Caption:='';
 if (TryStrToInt(Edit4.Text,d) and TryStrToInt(Edit1.Text,a) and TryStrToInt(Edit2.Text,b) and TryStrToInt(Edit3.Text,c))
 then begin
  while (a<b)and(a<>c) do begin
   if a mod d=0 then s:=s*a;
   inc(a);
  end;
  Caption:=FloatToStr(s);
 end;
end;

Эт еси я правильно понял...