===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите границы диапазона:');
if m > n then // если границы ввели "наоборот"
Swap(m, n);
Range(m, n).Where(p -> p.IsEven).Sum.Print
end.
