Составить программу, которая формирует массив, содержащий 15 случайных целых чисел, принадлежащий промежутку [0; 8], и преобразует элементы массива по следующему правилу: к чётному числу прибавляет 1, а нечётное умножает на 2.

var   i: integer;   a: array [1..15] of integer;   begin   write('Исходный массив: ');   for i:= 1 to 15 do //Формируем и распечатываем массив   begin     a[i]:= random(8);      write(a[i],' ');   end;   writeln; //Перевод на новую строку   write('Преобразованный массив: ');   for i:= 1 to 15 do   begin     if a[i] mod 2 = 0 then a[i]:= a[i] + 1 {Если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}     else a[i]:= a[i] * 2;     write(a[i], ' ');   end;   writeln; {Перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке} end. Отметь решение, как лучшее плиз)