Напишите программу, которая в массиве из 30 натуральных чисел определяет максимальное четное число.

// PascalABC.NET 3.2, сборка 1504 от 09.07.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(30,-50,50); a.Println;  Writeln('Максимальное четное: ',a.Where(x->x.IsEven).Max)end.Пример:14 34 8 41 -49 -2 22 9 29 -24 40 -35 -18 -47 0 -39 -9 46 38 8 25 -10 -30 32 -14 9 -13 6 9 -2Максимальное четное: 46