Помогите решить задачу на Одномерный массив

[Andrux]

Помогите я ее не до конца понимаю... закончите пожалуйста решение задачки...

program anz279;
uses crt;
var mas:array[1..100]of real;sum,n:real;a,b:integer;
    begin
    clrscr;
    writeln;
    randomize;
    writeln('Vvedite chemy ravno N');
    for a:=1 to n do
    sum:=(a1+bn)(a2+b(n-1)+(an+b1);

................................... .........................

[Sazary]

Andrux Думаю, вам следует подучить паскаль )
Намекаю на эту вот строчку:

sum:=(a1+bn)(a2+b(n-1)+(an+b1);

program anz279;
uses crt;
var
a,b: array[1..100] of integer;
i,n,pr : integer;

begin
clrscr;
writeln;
randomize;
writeln('Vvedite chemy ravno N:');
readln(n);

{ zapolnenie i vyvod massivov }
writeln('chisla a:');
for i:=1 to n do
 begin
 a[i] := random(10)-3;
 write(a[i]:4);
 end;
 writeln;
writeln('chisla b:');
for i:=1 to n do
 begin
 b[i] := random(10)-3;
 write(b[i]:4);
 end;
 writeln;
{ --- }

pr := 1;
for i:=1 to n do
 pr := pr * (a[i]+b[n-i+1]);

writeln('Rezultat: ',pr);
readln;
end.

[Andrux]

Sazary!
Большое спасибо, да вы правы мне следует подучить, но прост завтра над отчет и задачи готовые , поэтому я в безвыходном положении.