СРОЧНО!!! Дан массив из 10 чисел. Составьте программу,которая выводит два самых больших по модулю элемента этого массива.Дан массив названия месяцев. Составьте программу,которая выводит на экран названия ,включающие объекты "а" и "д".

begin
  var a:=ArrRandom(10,1,50); a.Println;
  a.SortedDescending.Take(2).Println
end.


14 5 27 6 37 5 19 3 39 31
39 37



begin
  var a:=Arr('январь','февраль','март','апрель','май','июнь',
    'июль','август','сентябрь','октябрь','ноябрь','декабрь');
  a.Where(w->('а' in w) and ('д' in w)).Println
end.


декабрь