Составить программу которая заполняет массив из 10 случайных чисел затем все не четные значения увеличивает в 3 раза а четные заменяет нулями

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var a:=ArrRandom(10,0,90); a.Println;
  a:=a.Select(x->x.IsOdd?3*x:0).ToArray; a.Println
end.

Пример
83 16 76 62 53 57 28 24 10 29
249 0 0 0 159 171 0 0 0 87