Delphi-Help

const n=5;

procedure TForm1.Button1Click(Sender: TObject);

var Mas:array[0..n] of Integer;

    i:Integer;

    dob:Integer;

begin

dob:=1;

for i:=0 to n do                   //Заносим значения в массив

    Mas[i]:=StrToInt(StringGrid1.Cells[i,0]);

for i:=0 to n do

 if (i mod 2 =1 ) then         //Проверка на четность номера

     dob:=dob*mas[i];

Label1.Caption:='Добуток='+IntToStr(dob);

end;