===== PascalABC.NET =====

begin

 ReadAllLines('MyFile.txt')

     .Select(p -> p.ToReal)

     .Where(p -> (Frac(p) = 0) and Trunc(p).IsEven)

     .Println

end.