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<=n2 do begin s:=s+i; i:=i+2 end;<br> 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.