Составить программу, которая формирует массив, содержащий 15 случайных целых…

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. Отметь решение, как лучшее плиз)