СДЕЛАЙТЕ это программа для Паскаля
З клавіатури вводяться числа m та n (m — початок діапазону, п — його кінець). Потрібно знайти суму всіх парних чисел, які належать цьому діапазону. Для цього потрібно використати циклічні структури, оператори умови та функцію mod.
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите границы диапазона:');
if m > n then // если границы ввели "наоборот"
Swap(m, n);
Range(m, n).Where(p -> p.IsEven).Sum.Print
end.