Заполните массив целыми случайными двузначными числами 2 и нечетные элементы и ввести новый массив -паскаль

begin

 ArrRandom(ReadInteger('Кол-во элем. ='), 10, 99).Println.Select(t -> t.IsOdd ? t * 2 : t).Println;

end.