===== PascalABC.NET =====
begin
ReadAllLines('MyFile.txt')
.Select(p -> p.ToReal)
.Where(p -> (Frac(p) = 0) and Trunc(p).IsEven)
.Println
end.
