Дія кнопки.
Стрічки треба поставити у правильному порядку
begin
var i:integer; P:real;
p:=p*a[i+1];
begin
procedure TForm1.Button1Click(Sender: TObject);
a:array[1..4] of real;
p:=1;
stringGrid1.Cells[i+1,2]:=floattostr(a[i+1]);
end;
for i:= 0 to 3 do
a[i+1]:=strtofloat(edit1.Text)*strtofloat(stringGrid1.Cells[i+1,1]);
end;
edit2.text:= floattostr(P);
