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

vara: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.