//PascalABC.NET 3.4.2 begin  var ar := arrrandom(30, 0, 100).Println;  ar.Where(x -> (x mod 2 = 0) and (x > 45)).Print; end.