Составить программу в pascal, найти сумму произведений 1 и 2, 3 и 4, и тд элементов массива состоящего из 10 значений. заранее !

Var
a:array[1..10] of integer;
i, ans:integer;
begin
  Writeln('Введите массив из 10ти элементов: ');
  for i:= 1 to 10 do
    read(a[i]);
  i:= 1; ans:= 0;
  while i < 10 do
    begin
      ans:= ans + a[i] * a[i+1];
      i:= i + 2;
    end;
  Writeln(ans);  
end.