как составить алгоритм нахождения суммы произведений

[Otsaron]

Не понимаю как составить алгоритм нахождения суммы произведений, помогите пожалуйста

[newerow1989]

const n=10;
var s:real;
    i:integer;
    x,y:array[0..n+1] of real;
begin
   Randomize;
   Writeln('    x         y');
   For i:=0 to n+1 do
   begin
      x[i]:=Random(20)+Random;
      y[i]:=Random(20)+Random;
      Writeln(x[i]:8:5,'  ',y[i]:8:5);
   end;
   Writeln;
   Writeln;
   s:=0;
   For i:=1 to n do
      s:=s+x[i]*(y[i+1]-y[i-1]);
   Writeln(s:8:5);
   Readln;
end.

[Otsaron]

Думаю вполне, спасибо большое!

[newerow1989]