Пример кода на Pascal для вычисления суммы всех четных чисел от m до n:

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

Пользователю необходимо ввести значения переменных m и n, а затем программа посчитает сумму всех четных чисел в этом диапазоне и выведет результат.