Помогите плиз написать программу в паскале Найти сумму чётных натуральных чисел в промежутке от n1 до n2. Pascal ABC.

1. "Школьное" решение
// PascalABC.Net 3.0, сборка 1064
var
  i,n1,n2:integer;
  s:longint;
begin
  Write(Введите интервал для вычисления суммы: ); Read(n1,n2);
  s:=0;
  if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
  while i  Writeln(Сумма четных чисел в интервале равна ,s)
end.

Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44

2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
  n1,n2:integer;
begin
  Write(Введите интервал для вычисления суммы: ); Read(n1,n2);
  if Odd(n1) then Inc(n1);
  Writeln(Сумма четных чисел в интервале равна ,Range(n1,n2,2).Sum);
end.