[udachnik2]

Я попробовал переделать прогу. И после переделки выдает ошибку

[Error] Unit1.pas(41): Incompatible types: 'Integer' and 'Extended'

а изменил я вот что:

procedure TForm1.Button1Click(Sender: TObject);
var bd,c,a,b,d,v:Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
bd:=StrToInt(Edit3.Text);
v:=100;
for c:=1 to bd do
begin
d:=a/v*b;//здесь поменял выражение и теперь пишет что типы не совместимы
a:=a+d;
Label3.Caption:=FloatToStr(d);
end;
end;