СРОЧНО!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!
Дан одномерный массив из 6 элементов. Если очередной элемент массива четный, то прибавить к нему первый элемент, если нечетный – то прибавить последний элемент массива. Первый и последний элементы не изменять.

// PascalABC.Net 3.0, сборка 1088const  n=6;var  a:array[1..n] of integer;  i:integer;begin  Randomize;  Writeln('*** Исходный массив ***');  for i:=1 to n do begin    a[i]:=Random(1001);    Write(a[i],' ');  end;  Writeln;  Writeln('*** Результат ***');  Write(a[1],' ');  for i:=2 to n-1 do begin    if Odd(a[i]) then a[i]:=a[i]+a[n]    else a[i]:=a[i]+a[1];    Write(a[i],' ');  end;  Writeln(a[n])end.Тестовое решение:*** Исходный массив ***706 46 715 899 103 308 *** Результат ***706 752 1023 1207 411 308