Даны 10 чисел, найти s, если s=a1*a2+a2*a3+a3*a4…a9*a10, где a1-a10 — это 10 чисел. — Pascal(Паскаль)

uses crt;
var s,i:integer;
    a:array[1..10]of integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
    begin
         a[i]:=random(10);
         write(a[i]:3);
    end;writeln;
for i:=2 to 10 do
    begin
         s:=s+a[i]*a[i-1];
    end;
writeln(s);
readln;
end.