Составить программу для ввода двух одномерных массивов А и В размерностью n элементов и вычисления массива С размерностью n-1, каж

[KalininGleb]

Составить программу для ввода двух одномерных массивов А и В размерностью n элементов и вычисления массива С размерностью n-1, каждый элемент которого получен как сумма перемноженных пар соседних элементов исходных массивов:
ci=ai*ai+1+bi*bi+1

Желательно в Delphi. Весь код готов , осталось вписать формулу и вывести результат в StringGrid3. Подскажите, пожалуйста.

var
  Form1: TForm1;
  a: array of Integer;
  i:integer;
  N:byte;

implementation

{$R *.dfm}

var P:real;
summa:integer;
srednee:real;
count:integer;
Z:integer;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin
randomize;
if Radiogroup1.ItemIndex=0 then
begin
for i:=1 to N do
begin
StringGrid1.Cells[i-1,0]:=inttostr(random(200)-100);
end;
end;

if Radiogroup1.ItemIndex=1 then
begin
for i:=1 to N do
begin
StringGrid1.Cells[i-1,0]:=inttostr(0);
end;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);


begin


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
N:=2
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
for i:=1 to N do
begin
StringGrid1.Cells[i-1,0]:='';
end;
N:=spinedit1.Value;
stringgrid1.ColCount:=N;
stringgrid1.Width:=N*30+3+N;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
randomize;
if Radiogroup2.ItemIndex=0 then
begin
for i:=1 to N do
begin
StringGrid2.Cells[i-1,0]:=inttostr(random(200)-100);
end;
end;

if Radiogroup2.ItemIndex=1 then
begin
for i:=1 to N do
begin
StringGrid2.Cells[i-1,0]:=inttostr(0);
end;
end;
end;





procedure TForm1.SpinEdit2Change(Sender: TObject);


begin
for i:=1 to N do
begin
StringGrid2.Cells[i-1,0]:='';
end;
N:=spinedit2.Value;
stringgrid2.ColCount:=N;
stringgrid2.Width:=N*30+3+N;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
StringGrid3.RowCount:=n;

for i:=1 to N do
begin
Z:=(StringGrid1.Cells[i,0]*StringGrid1.Cells[i+1,0])+(StringGrid2.Cells[i,0]*StringGrid2.Cells[i+1,0]);
StringGrid3.Cells[i-1,0]:=inttostr(Z);
end;
end;

end.