// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin WriteAllText('out.txt', ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)end.Примечание: если чисел гарантировано 10, то .Take(10) можно убрать