Пусть даны вещественные числа а1 , а2 , ..., аn , b1 , b2 , ..., bn . Вычислите произведение

[Opss_Sorry]

Помогите переделать или доделать прогу, чтобы все нормально работало.(Free Pascal)
Задание.
Пусть даны вещественные числа а1 , а2 , ..., аn , b1 , b2 , ..., bn . Вычислите произведение ( а1 + bn ) ( а2 + bn -1 )...( аn + b1 ).

Код(пробник).
Код Pascal

Type  
mas_a = array [1..10] of real; 
mas_b = array [1..10] of real; 
mas_c = array [1..10] of real; 
 
var
a:mas_a;
b:mas_b;
c:mas_c;
I,N: integer; 
 
begin
 
Writeln ( 'Vvedite N (N <= 10): ' );
Read ( N ); 
 
Writeln ( 'Vvedite 4isla posledivatelnosti A: ' );
for i := 1 to N do
read (a[i]);
Writeln ( 'Vvedite 4isla posledivatelnosti B: ' );
for i := 1 to N do
read (b[i]);
 
for i := 1 to N do 
c[i] := a[i] + b[i];  
 
Writeln ('Rezultat: ',(c[i])); 
readln();
end.

[Serge_Bliznykov]

всё проще. третий массив С Вам вообще не нужен.

а код решения выглядит примерно так:

Type  
 tmas = array [1..10] of real; 
 
var
 a, b : tmas;
 I,N: integer; 
 Pr : real; 
 
begin
 
Writeln ( 'Vvedite N (N <= 10): ' );
Read ( N ); 
 
Writeln ( 'Vvedite 4isla posledivatelnosti A: ' );
for i := 1 to N do
   read (a[i]);

Writeln ( 'Vvedite 4isla posledivatelnosti B: ' );
for i := 1 to N do
   read (b[i]);
readln();


Pr := 1; 
for i := 1 to N do 
  pr := pr * ( a[i] + b[N+1-i] );  
 
Writeln ('Rezultat: ',pr); 
readln();
end