Информатика, pascal. в файле f1 записаны целые числа. найти четные числа и вычислить их сумму. результат и исходные данные записать в файл f2.

// PascalABC.NET 3.3, сборка 1570 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadAllText('f1.txt');
  var c:=s.ToIntegers.Where(n->n.IsEven).Sum.ToString;
  WriteAllText('f2.txt',c+NewLine+s)
end.

Входной и выходной файлы находятся во вложениях