Пример кода на Pascal:

program SumOfEvenNumbers;
var
lowerBound, upperBound, i, sum: integer;
begin
writeln('Введите нижнюю границу диапазона: ');
readln(lowerBound);
writeln('Введите верхнюю границу диапазона: ');
readln(upperBound);
sum := 0;
for i := lowerBound to upperBound do
begin
if i mod 2 = 0 then
sum := sum + i;
end;
writeln('Сумма четных чисел в диапазоне от ', lowerBound, ' до ', upperBound, ' равна ', sum);
end.

Эта программа запрашивает у пользователя нижнюю и верхнюю границы диапазона, затем находит сумму всех четных чисел в этом диапазоне и выводит результат на экран.