составьте программу которая заполняет массив b 1..8 случайными целыми числами в диапозоне от 1 до 10 затем изменяет знак элементов с чётными индексами на противоположный. выведите на экран исходный и полученный массивы

var  b: array[1..8] of integer;  i: byte;begin  randomize;  writeln('Исходный массив.');  for i := 1 to 8 do  begin    b[i] := random(9)+1;    write(b[i], ' ');  end;  writeln;  writeln('Измененый массив.');  for i := 1 to 8 do  begin    if i mod 2 = 0 then b[i] := -b[i];    write(b[i], ' ');  end;  writeln;end.