Составить алгоритм для нахождения четных чисел от 1 до n нам за это оценки ставят

Вопрос: Найти сумму четных чисел натурального ряда, начиная с числа n до m Найти сумму четных чисел натурального ряда, начиная с числа n до m(m и n вводит пользователь). ответ: Без циклов: Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var n, m, sum: integer; begin sum := 0; repeat writeln('Введите числ с которого начинается ряд'); readln(n); writeln('Введите число которым заканчивается ряд'); readln(m); until n